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Eighth Edition (June 1976) 


This is a major revision of, and obsoletes, $C21-7522-6 and Technical Newsletter 
SN21-5324. . 


Information has been added concerning IBM System/3 Model 4 and the IBM System/3 
CCP/Disk Sort Program. Because the changes are extensive, this manual! should be re- 
viewed in its entirety. 


This edition applies to version 13, modification 00 of the IBM System/3 CCP/Disk Sort 
Program (Program Product Number 5703-SM2). This edition also applies to version 13 
modification 00 of 1BM Systern/3 Model 6 Disk Sort (Program Product Number 5703- 
SM1), and IBM System/3 Model 10 Disk Sort (Program Product Number 5702-SM1); 
version 1 modification 00 of IBM System/3 Model 12 Disk Sort (Program Product 
Number 5705-SM1); and version 4 modification 00 of IBM System/3 Model 15 Disk 
Sort (Program Product Number 5704-SM1); and to all subsequent versions and modifi- 
cations until otherwise indicated in new editions or technical letters. 


Changes are continually made to the specifications herein; before using this publication 
in connection with the operation of IBM systems, consult the latest System/3 Bibliog- 
raphy, GC20-8080, for the editions that are current and applicable. 


Requests for copies of 1BM publications should be made to your IBM representative or 
to the 1BM branch office serving your locality. 


A form for reader’s comments is provided at the back of this publication. !f the form has 


been removed, comments may be addressed to IBM Corporation, Publications, Department 
245, Rochester, Minnesota 55901. | 
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This manual helps the System/3 programmer fill out the 
sequence specifications needed in order to run: 


@ The System/3 Disk Sort Program on System/3 Models 
4, 6, 8, 10, 12 and 15 


@ The System/3 CCP/Disk Sort Program on System/3 
Model 4 


The How to Use This Manual section in Chapter 1 explains 
the organization of this book. 


This manual refers to the 5444 Disk Storage Drive, the 
5445 Disk Storage, and the 3340 Direct Access Storage 
Facility. The disk storage device attached to the system 
determines the meaning of the references as follows: 


For systems without 3340 Direct Access Storage Facility 


5444 5444 Disk Storage Drive or 
5447 Disk Storage and Control 









5445 Disk Storage 





Not applicable 





For systems with 3340 Direct Access Storage Facility 


5444 





Simulation area on 3340 data ° 
module 









Main data area on 3340 data module 





Main data area on 3340 data module 


Note: All references to the 5444 disks on systems without 
3340 Direct Access Storage Facility also apply to the 5447 
disks unless otherwise noted. 


Preface 


For ease of illustration, many of the examples in this book 
use card-like figures to represent records. This does not 
imply that a card device must be used for input or output 
in these situations. Any of several input/output devices 
might be used, depending on which System/3 model and 
configuration you are using. 


System/3 Model 4 is supported by System/3 Model 6 Sys- 
tem Control Programming and Program Products. The 
facilities described in this publication for the Model 6 are 
also applicable to the Model 4, although the Model 4 is not 
referenced. 


The System/3 Model 8 is supported by System/3 Model 10 
Disk System System Control Programming and Program 
Products. The facilities described in this publication for 


the Model 10 are also applicable to the Model 8, although 
the Model 8 is not referenced. . 


Two coding sheets are discussed in this manual: 
@ Sequence Specifications, GX21-9089 


@ Translation Table and Alternate Collating Sequence 
Coding Sheet, GX21-9096 


For more information about the manuals or the coding 
sheets, contact your nearest |BM branch office. 
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This publication is designed to help you, the programmer, 

use System/3 Disk Sort and System/3 CCP/Disk Sort. The 
CCP/Disk Sort Program is used with the Communications 

Control Program on the System/3 Model 4. 


HOW TO USE THIS MANUAL 


Your need for reference material varies with programming 
experience and familiarity with a particular system. This 
manual contains four different levels of information: 


1. Overview of Sequence Specifications shows which 
columns on the sequence specifications sheet you 
must consider when you want to sort a disk or tape 
file. 


2. Column Summaries list the possible entries for each 
column on the sequence specification sheet. 


3. Column Descriptions explain the possible entries 
for each column in greater detail. 


4. Sample Jobs show how to fill out the sequence 
specification sheets for typical jobs.! 


Here is how to use each level: 

@ Use the Overview to see which columns on the sequence 
specifications sheet you must consider when you want 
to sort a disk or tape file. 

@ Use the Co/umn Summaries for a quick recall of the 
possible entries for each column on the sequence speci- 


fications sheet. 


@ Use the Co/umn Descriptions when you need a detailed 
explanation of the entries for a particular column. 


@ Use the Sample Jobs to review coding techniques for 
actual jobs.! 


1 See Appendix H for CCP/Disk Sort differences. 


Chapter 1. Introduction 


A column summary and column descriptions are provided 
for each type of specification: 


@ Header 
@ Record type 


@ Field description 


Important Information for Users of System/3 
CCP/Disk Sort 


System/3 CCP/Disk Sort users should review Appendix H 
prior to coding your program for the following reasons: 


@ If you are knowledgeable with System/3 Disk Sort 
programming and System/3 CCP, Appendix H illus- 
trates the CCP/Disk Sort differences your coding must 
reflect. 


@ Appendix H provides a CCP/Disk Sort overview. For 
more details, refer to the chapter discussions. 


@ If you are a first time user of System/3, System/3 Disk 
Sort, or System/3 CCP/Disk Sort, Appendix H provides 
an orientation to System/3 CCP/Disk Sort for your 
System/3 Model 4. 


Introduction 1 


SYSTEM CONFIGURATION 

For information concerning the minimum system configur- 
ation for disk sort and additional devices supported, see 
one of the following publications, as appropriate for your 


System/3 model: 


@ /BM System/3 Models 4, 6, 8, 10, and 12 System 
Generation Reference Manual, GC21-5126 


° IBM System/3 Model 15 System Generation Reference 
Manual, GC21-7616 


@ /BM System/3 Model 6 Introduction, GA21-9122 
@ /BM System/3 Model 8 Introduction, GC21-5114 
@ /BM System/3 Model 12 Introduction, GC21-5116 


@ /BM System/3 Model 15 Introduction, GC21-5094 


Chapter 2. Overview of Disk Sort 


With the IBM Disk Sort or CCP/Disk Sort (also see Appen- 
dix H) Program you can: 


@ Rearrange the records in a disk or tape file: 


1 


shy 
( 


@ Drop records from a disk or tape file: 


al 


dt 
| 


@ Reformat the records in a disk or tape file: 
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Here is how the Disk Sort or CCP/Disk Sort Program works 
with the records in your file: 


1 Disk sort reads a record from the input file: 


1 5 6 26 27 30 


SS 


Control field A pata Control field B 


Note: Control fields are the fields you want disk sort to 
use to sort the records. See Co/umn 7 under Field Descrip- 
tion Specifications for a detailed discussion of control fields. 





2. Disk sort checks your sequence specifications to see 
whether the record is one you want to sort (often 
you may not want to sort all the records in the file). 


3. If the record /s one you want to sort, disk sort builds 


a work record, formatting it according to your sequence 


specifications (the format of the work record is im- 
portant because it controls the format of the output 
record). 


Assume that your sequence specifications say: 

a. Put the contents of positions 27-30 in the input 
record into positions 1-4 of the work record. 

b. Put the contents of positions 1-5 in the input 
record into positions 5-9 of the work record. 

c. Put the contents of positions 6-26 in the input 
record into positions 10-30 of the work record. 


The work record disk sort builds would look like this: 


1 4 5 9 10 30 


See Column 7, Field Description Specifications for 
a more detailed discussion of the work record. 


If you are not dropping control fields, they will al- 
ways precede data fields in the work and output 
records (see Column 28—Header Specifications for a 
discussion of dropping control fields). 


4. Disk sort writes all the records you want to sort into 
the work file. — 


5. Disk sort checks your sequence specifications to see 
how you want to arrange the records in the output 
file (ascending or descending order by control fields). 


6. Disk sort writes the records in the output file in the 
order you have specified. The only exception is when 
you want to drop control fields from the output 
record. 


THE THREE TYPES OF SORT: ADDROUT, TAG 
ALONG, AND SUMMARY TAG ALONG 


There are three types of sort jobs: addrout (address out), 
tag along (data fields can ‘’tag along” with control fields 

in the sorted records), and summary tag along (data is sum- 
marized in the sorted records). 


The output from an addrout sort job consists of 3-byte 


binary relative record numbers of the records in the input 
file. 


Employee master file 


Sorted records 


Control fields and data Control fields only 





Tag along sort 


The output for a tag along sort is a file of sorted records. 
The sorted records can contain: 


®@ Control fields and data 
@ Control fields only 


@ Data only 


07 175 $3.50 













06 174 $2.25 


04 170 $2.50 








Record addresses only 
ae 


Addrout sort 


Data only 
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The output for a summary tag along sort is a file of sorted 
records. The sorted records can contain: 


® Control fields, data fields, and summary data 
® Control fields only 
@ Data fields and summary data 


@ Summary data fields only 


RUNNING THE DISK SORT OR CCP/DISK SORT 






























PROGRAM 
OCL Sequence File to be 
Input 1 es nae 3D 3 
statements specifications sorted 
Processing ‘Disk Sort program Ny ee | Work file* 
Output Sorted file® 





1 OCL statements are your instructions to the computer. 
Sequence specifications are your instructions to the disk sort 
program. 

File to be sorted can be an indexed, sequential, or direct disk 
file, or a sequential tape file (or card or 3741 diskette file for 
Model 15). 

Work file is an area on disk where disk sort writes all the records 
you want to sort. The program can then work with the records 
there without disturbing the input file. 

5 Sorted file can contain: 

a. The relative record numbers of the records in the file 
b. Part or all of the records themselves (forming a sequential 
file) 


SEQUENCE SPECIFICATIONS SHEET 


The sequence specifications sheet contains three different 
kinds of specifications: header, record type, and field 
description. The sample specifications sheet below shows 
the location and purpose of all three. 


GX21.9089 


Internations! Business Machines Corporation Printed in U.S.A. 


SEQUENCE SPECIFICATIONS 12 ogra (ale, 7? 78 18 00 
Header fae LL] Sntaaee le TJ 


ei reg a ee 
Here you specify the type of sort job you are going to run. 

Pee on apes ev felofs] Ronan sare ONTO ASOT MOON A Naw Oa wo Oe ee OO ONT 

TTT TITittitrtt iti itt ttt ttt tt Tt 


Record Type 


intinuation (A/O/* ) 


ncker Select 


























Header specifications 


Record type specifications 


Field description specifications 
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Order of Sequence Specifications 

The normal order of sequence specifications is: 
1. Header line 

2. Record type lines 

3. Field description lines 


This order can vary, however, depending on how many 
records you want to sort and the format of those records 
(format refers to the locations, lengths, and types of fields 

in arecord). If, for example, you want to sort all the records 
in a file — and they all have the same format — you do not 
have to fill out record type specifications (this is often re- 
ferred to as implied include-all). 


Number of Records Format of Records 
to be Sorted to be Sorted Order of Sequence Specifications 


All the records in 
the file (implied 
include-al!) 


1. Header line 
2. Field description lines 


All the same 


Header line 
Record type lines 
Field description lines 


Some of the All the same 


records in the file 


All or some of Several 
the records in different 
the file formats 


Record type fines - of record 


Header line | For first type 
Field description lines format 


QP WN IWNs 


Record type lines For second type 
Field description lines of record format 


6. Record type lines One set for each additional 


. Field description lines type of record format! 


i This does not mean that the records in the file must be grouped by format type. The sequence specif- 
ications must be grouped (one set of record type and field description lines for each format type). Th 
records themselves can be in any order. : 





For detailed information on how to include or omit certain 
records when you are sorting a file, see Co/umn 6 under 
Record Type Specifications. 

How to Supply Sequence Specifications 

You can supply the sequence specifications from: 


@ The device you are using to supply the OCL statements 


@® AnOCL procedure containing the LOAD, FILE, and 
RUN statements for the job — 


@ Asource library module 


Appendix B summarizes: 


@ The advantages and disadvantages of each of these 
methods 


@ The interrelationship of the three methods of supplying 
~ sequence specifications and three of the OCL cycles 
(LOAD, BUILD, and CALL) 


OCL STATEMENTS 


Before your system can run a sort job, it needs certain in- 
formation about the disk sort program, the sequence speci- 
fications for the job, and the files involved in the job (every 
sort job uses a minimum of three files: an input file, a work 
file, and an output file). You supply this information in 
OCL statements. Here is the information you must supply: 


About the Sequence Specifications 


1. How you are going to enter the sequence specifications 
(for example, keyboard for the Model 6, MFCU for 
the Model 10, 1442 or MFCU for the Model 12, or 
display station or MFCU for Model 15). . 


2. | Where you want any computer-to-operator messages 
printed. 


About the Program 
1. Name of the program you want to run ($DSORT). 


2. Disk drive location of the disk sort program. 


About the Input File 


1. Name of the file you want to sort. The FILE state- 
ment name must be INPUT (or INPUT1,..., IN- 
PUTS8 for Model 12 or Mode! 15). However, if the 
file name is not INPUT (or INPUT1,..., INPUTS8 
for Model 12 or Model 15), use the LABEL key- 
word to identify the actual file name. 


2. Unit assignment of the file you want to sort: 

a. All Models Except Model 4: Removable disk 1 
or 2 (R1 or R2) or fixed disk 1 or 2 (F1 or F2) 
for the 5444 
Model 4: Removable disk R1 or fixed disk R2, 
F1, or F2 for the 5447 . 

b. Model 10: Drive 1 or 2 (D1 or D2) for the 5445: 

c. Model 12: Drive 1 or 2 (D1 or D2) for the 3340 
main data area 

d. Model 75: Drive 1, 2, 3, or 4 (D1, D2, D3, or 
D4) for the 5445 or 3340 

e. Drive 1, 2, 3, or 4 (T1, T2, T3, or T4) for tape 

f. Also supported on the Model 15 are MFCU, 
MFCM, 1442, 2501, and 3741 


3. Name of the disk pack or tape that contains the file. 


4. If you use tape, specify UNIT, BLKL, and RECL. 


5. If you use the 3741, specify RECL (Model 15 only). 


About the Work File? 


1. Name of the file you are going to use as a work area. 
The FILE statement name must be WORK, however, 
if the name of your file is not WORK, use the LABEL 
keyword to indicate the actual name of the file. 


2. Disk drive location (unit) of the work file: 

a. All Models Except Model 4: Removable disk 1 
or 2 (R1 or R2) or fixed disk 1 or 2 (F1 or F2) 
for the 5444 
Model 4: Removable disk R1 or fixed disk R2, 
F1, or F2 for the 5447 

b. Model 10: Drive 1 or 2 (D1 or D2) for the 5445 

c. Model 72: Drive 1 or 2 (D1 or D2) for the 3340 
main data area 

d. Model 75: Drive 1, 2, 3, or 4 (D1, D2, D3, or 
D4) for the 5445 and 3340 


3. Name of the disk pack that contains the file. | 


4. Number of tracks in the file. (Do not specify number 
of records.) 


5. Status of the file. The work file should be a scratch 
file since you won’t need its information after a sort 


job. 


Note: The work file must be online at all times during the 
sort run. 


: If the file you want to use is an old (temporary) file, you must 
also supply the location at which the file begins. 
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About the Output File’ 


1. Name you are going to call the sorted file. The FILE 
statement name must be OUTPUT; however, if the 
name of your file is not OUTPUT, use the LABEL 
keyword to indicate the actual name of the file. 


2. Unit assignment of the sorted file: 

a. All Models Except Model 4: Removable disk 1 
or 2 (R1 or R2) or fixed disk 1 or 2 (F1 or F2) 
for the 5444 
Model 4: Removable disk R1 or fixed disk R2, 
F1, or F2 for the 5447 , 

b. Model 70: Drive 1 or 2 (D1 or D2) for the 5445 

c. Model 12: Drive 1 or 2 (D1 or D2) for the 3340 
main data area 

d. Model 15: Drive 1, 2, 3, or 4 (D1, D2, D3, or 
D4) for the 5445 or 3340 

e. Drive 1, 2, 3, or 4 (T1, T2, T3, or T4) for tape 


3. Name of the disk pack or tape on which you are 
going to put the sorted file. 


4. | Number of records or tracks in the file. 


5. Status of the file. If the file exists before this sort, 
it cannot have permanent status. If the file is built 
during the sort, it can have temporary or permanent 
status. 


6. If tape is used, UNIT, BLKL, and RECL must be 
specified. 


Notes: 

1. You may not have your output file deferred if it is a 
split cylinder file. 

2. If the END parameter is not used, disk sort defaults 
to rewinding and unloading tape files. 


File Considerations 
Input: General 
The input file contains records to be sorted. Any file 


created by System/3 data management can be used as input 
to disk sort; for example, an RPG I! file or a file from a 


previous disk sort run. The disk file may have been created. 


by any processing method — sequential, indexed, or direct. 
A tape file must have been created sequentially. Since 
direct file areas are set to blanks before the file is created, 
you should test for and omit blank records. You can do 
this by testing a position that is known never to contain 
blanks. 


11 the file you want to use is an old (temporary) file, you must 
also supply the location at which the file begins. 
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Input: Model 6 and Model 10 


The FILE statement name must be INPUT. However, the 
actual file need not be called INPUT because the LABEL 
keyword allows you to identify the file you will be sorting. 
The input file may be multivolume (online or offline). 
However, for SORTA jobs, when the input file is processed 
by an RPG II program with your sorted addrout file, the 
input file must be online. 


The volumes containing the INPUT file must be mounted 
online prior to running disk sort. However, if the input 
file is offline multivolume, (more than one volume assigned 
to a removable unit), only the first volume assigned to each 
unit is required to be mounted. If the input file is not on- 
line prior to running, the job will end with message SD 

105 (INPUT FILE NOT ONLINE) followed by a CD45 
halt (Model 6) or a 25 halt (Mode! 10). 


If your input file is ASCII and ASCII-YES is not specified 
on the input file card, all data is treated as if it is EBCDIC. 
EBCDIC and ASCII data cannot be mixed in a sort run. 
An ASCII input file requires an ASCI! output file and an 
EBCDIC input file requires an EBCDIC output file. 


When ASCII is specified for input and output, packed data 
should not be specified in the sort specifications since 
ASCII does not support packed data. 


Variable-length blocks are not allowed by disk sort tape 
1/0; the job will end if they are encountered. 


Multiple Input: Model 6 and Model 10 


Disk sort supports multiple file input to the same extent 
that System/3 data management supports multiple file 
input. For more information on this subject, see the multi- 
volume file discussion in the /BM System/3 Model 10 Disk 
System Control Programming Reference Manual, 
GC21-7512 or the /BM System/3 Model 6 Operation Con- 
trol Language and Disk Utility Programs Reference Manual, 
GC21-7516. 


Restrictions for multiple file input to disk and tape files are: 


Disk Multiple File Input: Multiple files can be used as 
input if they are made to appear as multivolume files with 
the following restrictions: 

1. Labels must all be the same. 


2. Record lengths must all be the same. 


3. Files reside on different packs. 


Tape Multiple File Input (Model 10): Multiple files can be 
used as input if they are specified as multivolume files with 
the following restrictions: : 


1. RECL and BLKL must be the same. 
2. Record format must be the same. 
i Unlabeled or nonstandard tape files. 


4. Files must have the same attributes (such as, use of a 
9-track, 7-track, ASCII, EBCDIC, parity, density, 
CONVERT, or TRANSLATE). 


Note: Standard labeled tape files cannot be used for 
multiple file input. 


Input: Model 12 

Input can be from either of the following devices: 
® 3340 Direct Access Storage Facility 

@ 3410/3411 Magnetic Tape Subsystem 


Up to eight files can be used as input using any combination 
of the preceding devices. The file names must be: INPUT 
or INPUT1 (but not both), INPUT2, INPUT3, INPUT4, 
INPUTS, INPUT6, INPUT7, and/or INPUTS. 


The files will be processed INPUT (or INPUT1) serially to 
INPUTS regardless of the order of the OCL // FILE state- 
ments. The lowest numbered input file wil! be processed 
fully first, then the next numbered input file will be 
processed in its entirety, then the next until all the files 
have been individually processed in sequence. For a particu- 
lar disk sortrun, the input files do not have to be numbered 
serially; that is, the file names may be INPUT3, INPUTS, 
and INPUTS, or a particular run could have just INPUT8 

as the input file. 


All single-volume disk files must be online prior to running 
disk sort. However, when using multivolume offline disk 
files, only the first volume assigned to each unit must be 
mounted prior to running disk sort. When using 3340 
multivolume offline disk files, D1 cannot be used. 


Input record length is defined as the record length used 
for the disk and/or tape files. 


Special Considerations: When more than one input file is 
used, the following must be considered: 


@ Addrout sort is not allowed. 


@ Auto allocation of the work file should be used with 
caution. For best performance, use a work file statement. 


@ The record lengths of all disk or tape files must agree. 
This is not true for block lengths. Tape files may have 
different block lengths. | 


Data Considerations: When running in a multiple device 
mode, the data restrictions for any one input device apply 
to all input devices. For example, if disk input is combined 
with a 7-track translate input file, packed fields should not 
be used in the disk sort specifications since a 7-track trans- 
late record can contain only the System/3 64-character set. 


Input can be mixed EBCDIC and ASCII with either 

EBCDIC or ASCII output. However, when ASCII is specified, 
packed data should not be specified in the disk sort specifica- 
tions since ASCII does not support packed data. 
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Input: Model 15 

Input can be from any of the following devices: 
@ 5444 Disk Storage Drive 

@ 5445 Disk Storage 

@ 3340 Direct Access Storage Facility 


®@ 3410/3411 Magnetic Tape Subsystem 


Note. For the following devices, use a device independent 
// FILE statement. 


@ 1442 Card Read Punch 
@ 2501 Card Reader 


@ 3741 Data Station or 3741 Programmable Work Station 
directly attached 


@ 2560 Multi-Function Card Machine (MFCM) 
or , 
5424 Multi-Function Card Unit (MFCU) 


Up to eight files can be used as input using any combination 
of the preceding devices. The file names must be: INPUT 
or INPUT1 (but not both), INPUT2, INPUT3, INPUT4, 
INPUTS, INPUT6, INPUT7, and/or INPUTS. 


The files will be processed INPUT (or INPUT1) serially to 
INPUTS regardless of the order of the OCL // FILE state- 
ments. The lowest numbered input file will be processed 
fully first, then the next numbered input file will be proces- 
sed in its entirety, then the next until al! the files have been 
individually processed in sequence. For a particular disk 
sort run, the input files do not have to be numbered serially; 
that is, the file names may be INPUT3, INPUTS, and IN- 
PUTS, or a particular run could have just INPUTS as the 
input file. 


Card input files will have a record-length characteristic of 
the device. If card input files are used with disk or tape files, 
the card input is truncated or padded on the right with 
blanks to the record length specified for the disk or tape 


files. Vee. 


Single-volume disk files need not be online prior to running 
disk sort. However, when using multivolume offline disk 
files, the first volume assigned to each unit must be mount- 
ed prior to running disk sort. When using 3340 multivolume 
offline disk files, D1 cannot be used. 


Input record length is defined as the record length used for 
the disk and/or tape files. If the 3741 and/or cards are the 
only input, the input record length is the largest specified 
for the 3741 or 80 or 96 for card input — whichever is 
largest. 


Special Considerations: When more than one input file is 
used, the following must be considered: 


@ Addrout is not allowed. 


® Auto allocation of the work file should be used with 
caution. For best performance, use a work file 
statement. 


@ The record lengths of all disk (5444, 5445, or 3340) 
or tape files must agree. This is not true for block 
lengths. Tape file may have different block lengths. 


Data Considerations: When running in a multiple device 
mode, the data restrictions for any one input device apply 
to all input devices. For example, if disk input is com- 
bined with 5424 MFCU input, packed fields should not be 
used in the disk sort specifications since 96-column cards 
can contain only the System/3 64-character set. 


Input can be mixed EBCDIC and ASCII with either _ 
EBCDIC or ASCII output. However, when ASCII is speci- 
fied, packed data should not be specified in the disk sort 
specifications since ASCI! does not support packed data. 


Considerations for Writing the Output File Over the Input 
File: \f the output file is to be written over the input file 
(load to old), the output file will be scratched at the end of 
job under the following conditions, as though RETAIN-S 
had been specified for the output FILE statement: 


ls A pack containing an input file is not online at the 
start of the job (deferred mount) 


2. RETAIN-S is used on the FILE statement for the 
input file 


To avoid this problem, use RETAIN-T for the input FILE 
statement. 


Work File 


The work file is generally an area on disk which you have 
set aside as a work area. The disk sort program uses this 
area as working storage during the sorting process. 


The FILE statement name must be WORK. If the name of 
the work area is not WORK, use the LABEL keyword to 
indicate the file you will be using. 


A work file should be given scratch status (RETAIN-S), be- 
cause it is normally created during the sort and has no func- 
tion afterwards. It is always allocated with a multivolume 
attribute, even though its FILE statement may indicate 
single volume. 


The work file may be multivolume, but all of the volumes 
must be online. If either the input or output files are multi- 
volume offline, the removable units containing these multi- 
volume offline files may not be used for the work file. 


The work file may be specified on the 5444 or 5445 drives 
but not on both. An error occurs if work files are allocated 
on both 5444 and 5445 drives. 


When specifying the work file on the 3340 (Model 12 and 
Model 15), be certain to specify only the 3340 main data 
area or the simulation area, but not both. 


When a new output file is specified and a work FILE state- 
ment is given with the same unit as the output file, a halt 
can occur. The halt is issued when the space allocated for 
the work file overlaps the area where the new output file is. 
to be located. To avoid the halt, either omit the work 
FILE statement and let automatic allocate handle the work 
file or specify locations for both the work file and new out- 
put file. 


Disk sort work files are opened with multivolume file 
attributes. If RETAIN-S is used for sort with Model 15 
data packs, no problems are encountered. However, if a 
System/3 Model 6 or Model 10 data pack is used on Model 
15 and a nonmultivolume file is attempting to overlay an 
old System/3 work file and you are using all the original 
work FILE parameters (LABEL, TRACKS, LOCATION, 
etc), a terminal error will occur. 


When a work file statement is specified on Model 15 
systems for 3340s (D1, D2, D3, D4), the verify option is 
taken from the file statement. Column 34 of the sort 
header statement is ignored. 


Automatic Work File Allocation 


If the FILE statement is omitted from the disk sort OCL, 
disk sort automatically allocates one to four scratch areas. 
The scratch areas are allocated from: 


1. Available 5445 packs or 3340 (Model 15) 
2. Available 5445 fixed and removable packs 


3. Available 3340 areas (Model 12) or 5444 areas 


Notes: 

1. Adisk pack is considered available if the pack does not 
need to be dismounted for either program level 1 or 2, 
or partition 1 or 2 while disk sort is executing. 

2. The scratch areas are allocated from 5444 packs if no 
5445 or 3340 pack is available. 

3. Since the automatic allocation requests the largest 
contiguous disk area(s) from the available disk packs, 

a job being executed in the other program level or 
partition may not find any disk space available. This 
can be minimized to some extent if the disk packs have 
been fragmented; that is, if a file is intentionally located 
in the middle of a pack there will be two contiguous 
areas instead of one. 

The degree of pack fragmentation and the location of 
the fragmented files must be evaluated by each user. 


Automatic Work File Allocation with Multiple File Input 
(Model 12 and Model 15) 


The first choice of the automatic allocation function is the 
5445 Disk Storage or the 3340 Direct Access Storage 
Facility. If a 5445 or 3340 cannot be used, automatic 
allocation will try to find space on the 5444 disks. 


If more than one input file is assigned to a specific device 


‘type (5445 or 3340 or the 5444), then any unit of that 


type that contains an input file will not be used for auto- 
matic work file allocation. 


For example, if filename INPUT is assigned to unit D1, 
INPUTS to unit R2, and INPUT7 to unit D2, units D1 and 
D2 are not available for automatic allocation since more 
than one file is assigned to the 5445. 


Note: Unit R2 is available since only one input file was 
assigned to that device type. 


These automatically allocated scratch areas (work file areas), 
which will not necessarily be the largest free areas available 
to the automatic work file allocation function, are returned 
to system use after the disk sort run is completed. Note that 
a program in one level or in one partition may not find 
adequate scratch areas after disk sort has done an automatic 
work file allocation in the other level or other partition. 
Also note that when running a disk sort job using automatic 
work file allocation, you should never change any packs 
unless requested to do so by the system. The verify option 
in column 34 of the header statement applies to any auto- 
matically allocated work file. 
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Directed Automatic Work File Allocation 
(Model 12 and Model 75) 


In order to limit or select the 5444, 5445, or 3340 drives 
that are available to disk sort for automatic work file 
allocation, you can use a SWITCH OCL statement. The 
SWITCH statement consists of eight characters; one for 
each of the eight external indicators (U1-U8). The first 
or leftmost character gives the setting of indicator U1; the 
second gives the setting of U2; and so on. 


File 
Allocation 


5444 directed 


5445/3340 
directed 
X = Not used 
U1 and U2 = 00 No request 
01 5444 directed auto allocate is 
requested 


10 No request 
11. 5445/3340 directed auto allocate 
is requested 


U3 and U4 Not used 


U5, U6, U7, 


and U8 When set to a 1, the unit requested 


is considered available for auto 
allocation of the work file 


When requesting a 5444 directed auto allocation, U1 must 
be 0; U2 must be 1; and U6, U7, and/or U8 can be set to 1. 


Note: For a 5444 directed auto allocate, F1 is always 
considered available for auto allocation of the work file. 
If U6, U7, and U8 are all set to 0, then only F1 is con- 
sidered for auto allocation of the work file. 


When requesting a 5445/3340 directed automatic alloca- 


tion, U1 and U2 must be set at 1 and at least one of U5, 
U6, U7, and U8 must be set to 1. 
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For example, if you want to direct automatic allocation of 
the work file to D1 and D2, the SWITCH statement would 
be: 


// SWITCH 11001100 


To direct automatic allocation to R1 and F1, the SWITCH 
statement would be: 


// SWITCH 01000100 


The SWITCH statement must be included after the // LOAD 
or // CALL statement and before the // RUN statement. 


Directed auto allocate does not ensure that space is avail- 
able on the desired drives; it only directs disk sort requests 
for work space to these drives. 


if the units indicated on the SWITCH statement for a 
5445/3340 directed auto allocate are not available, auto- 
matic allocation takes place on all available 5444 packs. 


if the // SWITCH statement is in DSORT OCL, it is not 
left over from a previous job. It only appears and executes, 
for a job, when you request it. [t will not repeat itself in 
subsequent job OCL. 


Note: For 5444 directed auto allocate, allocation takes 
place on F1 since F1 is always considered. 


Output File 


The output file contains the sorted file. The disk file can 
have sequential organization only. Output of the program 
is in one of three formats: 


@ Tags or addrout 
@ Tag along 


e Summary tag along 


The file statement name must be OUTPUT. The LABEL 
keyword can be used to identify the actual file being used. 


If the output file exists before the sort (it is old), it cannot 
have permanent status since you cannot write into a perm- 
anent file. However, if the output file is built during the 
sort, it can have permanent or temporary status. 


The output file may be multivolume (online or offline). 
However, for SORTA jobs, when the input file is processed, 
the sorted addrout file must be online. 


Deferred mounting of the output file is allowed (notice that 
this does not refer to the system OCL DEFER parameter). 
This means that the output file does: not have to be online 
prior to running disk sort. The output file specified in the 
FILE statement may be old or new. 


One use of deferred output mounting is to use the same re- 
movable unit(s) for both the input and output files, but 
with the input and output files on different packs. In this 
case, the shared removable units may not be used for the 
work file. For example: 


TEI 
(i Kilns BD 


1 
| 
Mi 
/| 
/| 


In this case, pack AAAAAA must be mounted on R11 prior 
to running disk sort. The mounting of pack BBBBBB on 

R1 is deferred until later. R1 may not be used for the work 
file. 


Disk sort defaults to rewinding and unloading tape files. 


Variable length blocks are not allowed by disk sort tape 
1/0; the job ends if they are encountered. 


Note: \|n the output file, the order of records having dupli- 
cate control fields is unpredictable. This does not imply 
that the output is incorrect, however, since the control . 
fields were in order. 


7-Track Tape Considerations 


If nonstandard and unlabeled tapes are used, extreme care 
must be taken when creating a file using converter, trans- 
lator, and parity parameters. Since no labels are given with 
block and record sizes on this type of tape, identical FILE 
statements are necessary each time the 7-track tape is used 
as input for a job. If an error does occur, disk sort cannot 
recognize the error. No diagnostic is given. 


If standard labeled tapes are used, identical FILE statements 
are still necessary each time the same 7-track tape is used 

as input for another job. Since there are labels giving block 
and record sizes, disk sort can diagnose errors if identical 
FILE statements are not given. 


If 7-track tape is used for either input or output, the con- 
verter or translator must be used. Refer to the /BM 
System/3 Model 10 Components Reference Manual, GA21- 
9103, for a discussion of the converter and the translator. 
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The translator cannot be used if output is 7-track tape and 
packed data or summary data specifications are used. 


If input is 7-track tape with the translator on, then include, 
omit, and field specifications with packed data are not 
allowed. 


If SORTA (addrout) sort is specified, output cannot be 
7-track tape. 

9-Track Tape Considerations 

A terminal error occurs if the tape file is ASCII and 
ASCII-YES is not specified for both the input file and the 
output file. 

If the output for a SORTA (addrout) sort is to be on tape 
and ASCII translate has been specified, a terminal error is 
generated and the sort job ends. 

For tape output from an addrout sort, the logical record 
length (RECL-on file statement) must be 18 positions. 


Restrictions on the Use of Multifile Tapes (Model 15) 


You must adhere to the following restrictions when using 
multifile tape volumes: 


1. All files in the volume must be labeled in the same 
manner; that is, all must be standard labeled files or 


all must be unlabeled files. 


2 All files in the volume must be recorded in the same 
density. 


3. All files in the volume must be recorded in the same 
mode (translate, convert, or parity). 


4, lf the last file on a multifile reel is continued ona 


subsequent reel, the two reels constitute an aggregate. 


The restrictions in 1-3 apply to all volumes of the 
aggregate. In addition, all volumes of the aggregate 
must be either 7- or 9-track (7-track and 9-track reels 
may not be mixed in the same aggregate). 


5. Standard labeled 7-track tapes, if prepositioned, 
should be prepositioned to a point just before a 
HDR1 record. Otherwise, tape data checks or run- 
away may occur. 


Refer to the /BM System/3 Model 15 System Control Pro- 


gramming Reference Manual, GC21-5077, for a discussion 
of tape multifile volumes. 
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How to Supply OCL Statements for the Model 6 


Installations without an Online Data Recorder or a 3741 
Data Station: \f your installation does not have an online 
data recorder or a 3741 Data Station, you will use conversa- 
tional OCL to give the system the information it needs to 
run the-disk sort program. . 


Appendix A summarizes: 


@ Which OCL cycle to use (depending on the type of sort 
you want to do) . 


@ How to respond to the keywords in each cycle. 


Installations with an Online Data Recorder or 3741 Data 
Station: \f your installation has (1) an online data recorder 
(IBM 5496 Data Recorder or IBM 129 Data Recorder), (2) 
a directly attached 3741 Data Station, or (3) a directly 
attached 3741 Programmable Work Station, you can also 
supply OCL statements on 96-column punched cards, 80- 
column punched cards, or 96-byte diskette records. 


The /BM System/3 Model 6 Operation Control Language 
and Disk Utility Programs Reference Manual, GC21-7516, 
explains how to code OCL statements on cards. To supply 
OCL statements on cards, you must establish the data 
recorder as the OCL input device. Instructions on how to 
do this are contained in the /BM System/3 Model 6 Oper- 
ator’s Guide, GC21-7501. Tosupply OCL statements from 
a diskette, refer to the /BM System/3 3741 Reference 
Manual, GC21-5113. | - 


With or without an online data recorder, OCL statements 
and error messages will be printed out on whatever output 
device you specify in your LOG statement at IPL. (See the 
IBM System/3 Model 6 Operator’s Guide, GC21-7501, for 
detailed discussion of the IPL procedure.) 


How to Supply OCL Statements for the Model 10 


You can supply OCL statements via the device you select 
as the system reader (the console keyboard, 1442, MFCU1, 
MFCU2, or 3741). For a discussion of selecting the system 
reader, see the /BM System/3 Model 10 Disk System Oper- 
ator’s Guide, GC21-7508. , 


To supply OCL statements from the diskette, refer to the 
IBM System/3 3741 Reference Manual, GC21-5113. 


How to Supply OCL Statements for the Model 12 


You can supply OCL statements via the device you select 
as the system reader (the console keyboard, 1442, MFCU1, 
MFCU2, or 3471). For a discussion of selecting the system 
‘reader, see the /BM System/3 Model 12 Operator’s Guide, 
GC21-5144. 


To supply OCL statements from the diskette, refer to the 
IBM System/3 3741 Reference Manual, GC21-5113. 

How to Supply OCL Statements for the Model 15 

You can supply OCL statements via the device you select 
as the system reader (1442, 2501, MFCU1, MFCU2, con- 
sole, MFCM1, MFCM2, or 3741). For a discussion of selec- 
ting the system reader, see the /BM System/3 Model 15 
Operator’s Guide, GC21-5075. 


TIMING CONSIDERATIONS 


The time it takes to sort a file depends on these factors: 


1. How much main storage you assign for the program’s © 


use. The larger the main storage allocation, the less 
time it takes to run a sort job. 


2. Number of records you want to sort. The greater. 
the number of records, the longer it takes to sort 
them. 


3 Size of the records. The larger the records, the longer 
it takes to sort them. 


4. Number of sequence specifications in the sort program. 
The greater the number of sequence specifications, 
the longer it takes to run the sort job. 


5. | Whether you are using an alternate collating sequence. 
An alternate collating sequence can increase the time 
it takes to run the sort job. 


6. | Where the files are located on the disk. If the disk 
arm has to make many extra movements, the sort 
time will increase. This factor. is especially significant 
for jobs with multivolume files. 


7. Order of the control fields in the input record. 


8. Whether or not automatic work file allocation is 
being used. 


9. Whether you are using the nonverify option. By using 
this option, data written on the work file will not be 
verified. The result is a decrease in the time it takes 
to sort a job. 


Each of these factors is discussed in detail in Appendix D. 
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PROGRAMMING CONSIDERATIONS 


| it Addrout Sorts (SORTA) | _Tag Along Sorts (SORTR, SORTRS) 


Core Storage Less than tag along sort More than addrout sort 
Requirements 


Work File Size Need only be big enough Must be big enough to hold entire 
to hold control fields and file 
relative record numbers! 


Sorted Output Relative record numbers Sorted output records can contain 
only data only, control fields only, or 
both data and control fields 


Input file should not be Input file can be overlaid by output 
overlaid by output file file? (the input file can double as © 
the output file) 


Usually shorter Usually longer 


1This lets you sort large files without changing packs. 


2The space for the output file may be the same as that of the input file. In other words, 
the output file may overlay the input file. However, good programming practice is to 
never overlay a file you want to sort, unless you have first made a backup copy of the 
file. When using the input file as the output file, you must specify the same space 
(number of records or tracks), location, and label. 
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SPECIFICATIONS FOR TAG ALONG SORT (SORTR) 


The shaded columns are the ones you must consider for a 
tag along sort job. 


Control field and 
Type of sort sequence information 


IBM International Business Machines Corporation pine oek: 
SEQUENCE SPECIFICATIONS mrogam (ie 717 78 79 80 
\pamttarcstiiy, Header Identification 





Card: MATCH, 
SORT, SELECT, |‘#"9est Total of 
MERGE Control Fields 

Record 


of Any Record 
Disk:CSORTRD 76 Length 
SORTA, SORTRS}'Y 
Tape: SORTT 
35 36 37 38 39/40 44 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 
: ett Glee Ee ease ee ete] 
p+ ++-+—} Format for sorted file 


Record Type 


Output Job Description 


Print Option 

Output Option (x) 
Checkpoint Option(C) 
Verify Option (N) 





Location’ i : Name. 


© Stacker Select 


1 
| 
| 
' 
' Record 
' 
1 
' 
+ 


10 1t 42113 14 15 16/147 18]19]20 21 22 23]24 25 26 27128 29 30 31 32 33 34 35 36 37 38 39440 . 
Comparison of an input record field and a constant 


epee PEE 
SEREEREEE Pes Washi lelelcl ee lete isle tl | amen 
Comparison of two input record fields HHH H HH 
fel 


Comments 


oma eat tee 
I 
Field 1 


Location Name | 


s 
Vv 
2 
5 
£ 
& 
zo 
2 
Oo 
& 
a 
7 


63 64 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 7071 72 


Definition of normal control fields 
Definition of opposite control fields 
Definition of forced control fields 


Definition of data fields 
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SPECIFICATIONS FOR ADDROUT SORT (SORTA) 


The shaded columns are the ones you must consider for an 
addrout sort job. 


Control field and 
Type of sort sequence information 


International Business Machines Corporation 


SEQUENCE SPECIFICATIONS sare). eee ea ae 
Header we ndetiene EET 





GX21-9089 
Printed in U.S.A. 


: M. oO 
a ae Largest Total of Q| stacker | : M asd 
Control Fields i Output : Reserved Job Description 


of Any Record Record 


7 Length 
F ecreg pce on 
7 8 9 10 a 12 as a 15 16 a7 18 


Location 


© Stacker Select 


10 11 12113 14 15 16]17 18]19]20 21 22 23]24 25 26 27128 29 30 31 32 33 34 35 36 37 38 39/40 ‘ 7 - ; 
eee of an input record field and a constant 


PEE 
He PUTT SEE 


Comments 


Definition of opposite control fields" 
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SPECIFICATIONS FOR SUMMARY SORT (SORTRS) 


The shaded columns are the ones you must consider for a 
summary sort job. 


Type of sort 


MERGE 
Disk: SOR 


Job 
Card: MATCH, 
Senos Seal ties ole 
Control Fields 


Control field and 
sequence information 


international Business Machines Corporation 


SEQUENCE SPECIFICATIONS 


Card Match < 


of Any Record 


F=18 Output Option (X) 


Location 


Page sequence 


GX21-9089 
Printed in U.S.A, 


75 7677 78 79 80 
Program 


identification 


Job Description 


F rmat for sorted file 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 
Lee SST TIT dele Te 


Comparison of an input record field and a constant. 


se 

coh Pree Constante] TT ET EET EEE ET 

ti ap iste BEEPS ES ri ihr ie mel 1 
[common woimtoa es PETE TEEEETEEE 


Hy CoRR PEPEPTETETE HHH ee 


Reserved 


y Definition of normal control fields 
Definition of opposite control fields 
Definition of forced control fields 


Definition of data fields. 
Definition of summary data fields 


Comments 


49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 7071 72 
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Chapter 3. Header Specifications 


Header specifications tell disk sort: 


@ What type of sort you want to do (addrout, tag along, 
or summary tag along) 


@ How you want to format (arrange) the sorted file 


@ What, if any, system information you want printed (to 
aid you in error checking) 


Remember, use only one header line for each sort job. 


COLUMN SUMMARY 


Columns 
that must be 
filled in 


Columns that 
must be filled 
in for a tag 
along sort 
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Header line number 
Header line identification 


Addrout sort job 
Tag along sort job 






00-99 








7-12 





SORTA 
SORTR 
SORTRS 








Summary tag along sort job 


13-17 Longest control field used in sorting the records 





Records in sorted file to be in ascending order by control field 





Records in sorted file to be in descending order by control! fields 
Not used in disk sort jobs 
Use standard System/3 collating sequence in compare operations 





Blank 


Use an alternate System/3 collating sequence in compare operations 
ALTSEQ statements will define the collating sequence to be used. 


Print: 
Sequence specification lines 
Diagnostic messages 
Program-status messages 
Action messages 


Print: 
Program-status messages 
Action messages 


. Print action messages only 
Print nothing 


Oor blank 






Keep control fields in output records in tag along sort jobs 
Drop control fields from output records in tag along sort jobs 
Length of output records in tag along sort jobs 

Not used in disk sort jobs 

Data written on the work file will not be verified 





1-4096 
lank 


wo 


Reserved for system use 
Reserved for system use except CCP/Disk Sort 
Indicates a record length to follow (CCP/Disk Sort only) 


Input file record length — right justified with or without leading zeros 
(CCP/Disk Sort only) 


Comments except CCP/Disk Sort 
Job description for CCP/Disk Sort 


Blank 








40-43 


40-72 
44-72 
73-74 
75-80 


Any System/3 characters 
Any System/3 characters 


~ 





Alphameric characters CCP/Disk Sort object program name 


COLUMN DESCRIPTIONS 
Columns 1-2 (Page Number) and 3-5 (Line Number) 


Page number (columns 1-2) and line number (columns 3-5) 
form a 5-digit sequence number. As the program reads 
sequence specifications, it checks the sequence numbers to 
make sure they are not in descending order. If the numbers 
are in descending order (for example, if page 02 specifica- 
tions come before page 01 specifications) and specifications 
are being printed, the program will print a warning next to 
the line. After a warning is issued (the letter S) the program 
continues reading the rest of the specification lines and then 
halts and waits for further instructions from the operator. 
The operator can either continue or end the job. 


Because page number applies to all lines on a page, columns 
1-2 appear only once, in the upper right corner of the page. 
You number the pages in ascending order. 

The line number of the header line is always 000 and is pre- 
printed on the coding sheet. 

Column 6 (Line Type) 

Column 6 of the header line contains a preprinted H to 
identify the line. 

Columns 7-12 (Job) 

Columns 7-12 tell the program what type of sort job you 


want to do. SORTA means addrout sort. SORTR means 
tag along sort. SORTRS means summary tag along sort. 


Columns 13-17 (Largest Total of Control! Fields of Any 

Record Type) : 

To calculate this entry: 

1. Add together the lengths of the control fields (N, O, 
or F in column 7 of field specifications) for each type 


of input record. 


2. Place the /argest of these totals in columns 13-17. 
(Your entry must not exceed 256.) 


For more information, see Contro/ Fields under Column 7, 
Field Description Specifications. 


Column 18 (Ascending or Descending Sequence) 


Control fields control the sequence of records in the sorted 
output file. Your column 18 entry indicates the sequence 
in which you want the records sorted: 


A Ascending sequence 
by control field 





Descending sequence 
by control field 


Column 26 (Collating Sequence) 


Column 26 specifies the collating sequence you want disk 
sort to use in compare operations. (Compare operations 


determine whether one character is equal to, greater than, 


or less than another character.) 


Standard Collating Sequence 


No entry in column 26 tells the system to use the standard 
System/3 collating sequence. There are slight variations in 
the standard collating sequence depending on whether you 
are using both the zone and digit portions of the characters 
in your records, the zone portions only, or the digit portions 
only. Appendix C shows the complete collating sequence 
for each situation. 


Alternate Collating Sequence 


An S in column 26 tells the program you want to change 
the standard collating sequence. To do this you must 
supply ALTSEQ statements immediately following the 
header specifications (Appendix C tells you how to code 
ALTSEO statements). 


Do not use a packed or unpacked factor 1 in an include or 
omit record type specification (P or U in column 8) if you 
specify an alternate collating sequence. 


Note: Generally, the only users of alternate collating 
sequences are European firms that want to insert special 
alphabetic characters (such as the German a, 6, and u and 

the Spanish n) into the standard System/3 collating sequence. 
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Column 27 (Print Option) 
The disk sort program can print: 
@ Sequence specification lines 


@ Diagnostic messages, for any errors in sequence 
specifications 


@ Program-status messages, to identify various stages of the 
job for you 


@ Action messages (accompanied by a halt), to identify 
circumstances requiring attention before you can 
continue the job 


Column 27 indicates which of the preceding information 
you want the program to print during a job: 


Sequence specifications 
Diagnostic messages 
Program-status messages 
Action messages 


Col. 27 Entry 
0 or blank 


Program-status messages 
Action messages 
2 Action messages only 


Column 28 (Output Option for Tag Along Sorts) 





Column 28 applies to tag along sort (SORTR or SORTRS) 
jobs only. It indicates whether or not you want the program 
to drop control fields from output records after the records 
are sorted. A blank in column 28 means keep tie control 
fields; X means drop them. 


Considerations for Dropping Control Fields 


Control fields are normally dropped if you are using 
opposite control fields or an alternate collating sequence. 

In these two cases, the program changes the control infor- 
mation (during the sorting process) in such a way that it will 
be meaningless to you. 


Using Fields as Both Control and Data Fields 


If you are using opposite control fields or an alternate 
collating sequence and you want to keep the control infor- 
mation in a meaningful form in the output records, describe 
the fields twice: once as control fields and once as data 
fields. Data fields are not involved in the sorting process 
and are not changed by the program. 
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Columns 29-32 (Output Record Length for Tag Along Sorts) 


Columns 29-32 apply to tag along sort (SORTR or SORTRS) 
jobs only. The entry in these columns tells the program the 
length of records in the final sorted file. 


If you do not drop control fields, the length includes both 
control and data fields. If you drop control fields, the 
length includes only data fields. In either case, the sum of 
the control fields and the data fields must not exceed the 
maximum work record length limits listed in Appendix E. 


Calculating Output Record Length When Dropping Control 
Fields 


For each type of record, total the lengths of all the data 
fields you are including in the job. Select the largest total 
and enter this number in columns 29-32. 


Calculating Output Record Length When Not Dropping 
Control Fields 


For each type of record, total the lengths of the data 
fields. Select the largest total, add this total to the number 
in columns 13-17, and put the sum in columns 29-32. (The 
sum must not exceed the maximum work record length 
limits listed in Appendix E.) 


Column 34 (Nonverify Option) 


Column 34 applies to all disk sort runs except those that 
contain a work file statement for a 3340 disk file on Model 
15 only. When a 3340 file (D1, D2, D3, D4) on Model 15 
only is used as the work file, the verify option is taken from 
the // OCL FILE statement and column 34 of the sort 
header record is ignored. Otherwise, if an N is placed in this 
column of the disk sort header statement, none of the data 
written on the work file will be verified. This results in an 
improvement in performance (see Appendix D. Timing 
Considerations) . 


Note: \f you use the nonverify option when your output 
file is to overlay the input file, the input file might be 
destroyed if a terminal error occurs before end of job. There- 
fore, if the input file cannot be easily recreated, you should 
have a duplicate copy for backup. The input file can be 
destroyed under the same circumstances whether the non- 
verify option is used or not. However, the chance is greater 
when using the nonverify option. 


Column 39 (Record Length Indicator) — CCP/Disk Sort 
Only 


Column 39 record length code applies only to Model 4 
CCP/Disk Sort users. The R indicates that a record length 
exists in columns 40-43. 


Columns 40-43 (Record Length) — CCP/Disk Sort Only 
You designate the input file record length, right justified. 


Note: \|f a user comment currently exists, you must fit it 
into columns 44-72, or remove it. 


Columns 40-72 (Job Description) or Columns 44-72 (Job 
Description) — CCP/Disk Sort Only 


This field is for your comments. You can use any System/ 
3 characters you want in these columns. If the program 
prints specification lines (the column 27 entry is a zero 

or blank), the comments you include in these columns 

are printed. Comments have no effect on the program. 


Columns 75-80 (Program Identification/Program Name) 
Disk Sort 


For disk sort, the program identification is only used for 
user reference. It has no program function. 


CCP/Disk Sort 


For CCP/Disk Sort, the program name does provide a pro- 
gram function. This field contains the name given to the 
object program. This is the name that you enter from the 
terminal to invoke the sort. The entry can be: 


1. A valid program name. The first character must be 
alphabetic, but cannot be a #, $, or @ character. 
The remaining characters must be alphameric with 
no embedded blanks or special characters. 


2. Blank. The default is SRTOBJ. 


Note: DIR, ALL, and SYSTEM are reserved names and 
must not be used as program names. 
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Chapter 4. Record Type Specifications 


Record type specifications tell disk sort which of the 

records in a file you want to sort. Remember, if you want 

to sort all the records in a file, and they all have the same 
format, you do not have to fill out record type specifications. 


COLUMN SUMMARY 


Columns that must 
be filled in 
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Entries Explanation 


0099 


01x-06x Line number (you can leave column 5 blank, or enter any 
value to aie the specifications in ascending order) 


record described on the previous line) 
than the one on the previous line) 


The input record position in which the factor 1 field begins 
(blank if field is only one position long) 


13-16 1-4096 The input record position tn which the factor 1 field ends 


17-18 EQ Factor 1 must equal factor 2 

Factor 1 must not equal factor 2 

Factor 1 must be less than factor 2 

Factor 1 must be greater than factor 2 

Factor 1 must be less than or equal to factor 2 
Factor 1 must be greater than or equal to factor 2 


19 eee Factor 2 is a constant 
i Factor 2 is another field in the same input record 


20-23 1-4096 The input record position in which the factor 2 field begins 
(blank if field is only one position long) 


24-27 1-4096 The input record position in which the factor 2 field ends 


20-39 Any System/3 The factor 2 constant 
characters 

40-72 Any System/3 Comments 
characters 


Columns 












— 
N 


& 
a 














Lu 


9-12 1-4096 











COLUMN DESCRIPTIONS 
Columns 1-2 (Page Number) and 3-5 (Line Number) 


Page number (columns 1-2) and line number (columns 3-5) 
form a 5-digit sequence number. As the program reads 
sequence specifications, it checks the sequence numbers to 
make sure they are not in descending order. If the numbers 
are in descending order (for example, if page 02 specifica- 
tions come before page 01 specifications) and specifications 
are being printed, the program will print a warning (the letter 
S) next to the line (the S stands for sequence error). After a 
warning is issued, the program continues reading the rest of 
the specification lines, then halts and waits for further in- 
structions from the operator. The operator can either con- 
tinue or end the job. 


Because page number applies to all lines on a page, columns 
1-2 appear only once, in the upper right corner of the page. 
Number the pages in ascending order. 


Record type line numbers are 01 through 06. The numbers 
in columns 3 and 4 are preprinted on the coding sheet. You 
can leave column 5 blank or enter any value to keep your 
specifications in ascending order. If you have more than 
six record type lines, use another coding sheet and start at 
line 01. 


Out-of-Sequence Lines 


Use column 5 when you want to insert a specification with- 
out renumbering the other specifications. For example, to 
insert a specification line between lines 01010 and 01020, 
you can number it 01015, code it, and then continue to fill 
out the rest of the sheet. 


Be sure any lines that are out of sequence on your coding 
sheet are clearly marked. You can do this by writing a note 
in the margin of the page with an arrow pointing to where 
the insert belongs (see Sample Job 3). 


Column 6 (Line Type) 


Column 6 identifies the type of record type line. Anlin 
this column stands for either an include or an include-all 
line; an O stands for an omit line. 


Include Line 


Include lines identify records you want the program to sort 
by describing particular record fields. 


Include-All Line 


Include-all is a special form of include line; it has no record 
description (columns 7-39 are blank). It tells the program 
to sort all the records that have not been described by any 
preceding include or omit line for the job. Records referred 
to in this manner must have the same field specifications. 


Note: Only one include-all line can be used per job. If 
used, it must be the last record type line for that job. 


Summary: Include Lines 


If the type of sort job you are running requires you to code 
record type lines, you must use include or include-all lines 
to describe the records you want sorted. Records not 
described in include lines will not be sorted. 


Omit Line 


Omit lines identify records you do not want the program 
to sort. Omit lines are not required but can be helpful 
when you have many types of records you want the pro- 
gram to use and just a few you want omitted. Omit lines 
are normally followed by an include-all line, telling the pro- 
gram to sort all the records that are not described by omit 
lines. 
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Sets 


Here are four rules to remember when you are using 
include and omit sets: 


There are two types of sets: include sets and omit sets. An 


include set identifies one or more record types you want to 1. All include sets must end with a field description line. 
include in your sort job. An omit set identifies one or more 

record types you want to omit from your sort job. (The 2. Omit sets never have field description lines. 

records in any record type always have at least one charac- 

teristic in common — such as an X in position 5.) 3. Every omit set must be followed by an include set. 


INCLUDE SETS? 





Include 
AND lines 


Include 
OR lines 


include 
AND and 
OR lines 


Include 
only one 
record 
type 
(implied 
include- 
all) 


H, F,orO 
| 
I 
F 


b 
O 
A 


4. The last set must be an include set. 


There are five types of include sets and three types of omit 
sets. 


Header line, field description line, or omit line 


Record type lines: 
New record type indicated by blank in column 7. 
Lines that describe the same record type (as the previous line) have an 
A incolumn 7. 


Field description line(s) 
Header line, field description line, or omit line 


Record type lines: 
New record type indicated by blank in column 7. 
Lines that describe different record types (than the previous line) have 
an O in column 7. 


Field description line(s) 
Header line, field description line, or omit line 


Record type lines: 

New record type indicated by blank in column 7. 

This tine designates a record type which is different than but has the 
same field description lines as the record type described in the previous 
line(s). 

This line continues the same record type of a previous line or lines. This 
record type can be continued (IA), or another record type can be 
started (10), provided all record types have the same field description 
lines. Record types with different field lines would have to start a new 
include set. 


Field description line(s) for either A or O record types 
Header line 
No record type lines 


Field description line(s) 


Header line, field description line, or omit line 


Record type line: Tells program to sort all the records that have not been 
described by any preceding include and omit lines. Records referred to in 
this manner must have identical field specifications. 


Field description line(s) 


1 Every include set must end with field description lines. An include set can be followed by another include set, an 
omit set, or // END. 


Note: Records not described in include sets will not be sorted. 





OMIT SETS! 


Header line or field description line (last line of include set) 
New record type indicated by blank in 

column 7. Record 
Lines that describe the same record type Type 

(as the previous line) have an A in Lines 

column 7. 


Header line or field description line (last line of include set) 
Omit OR lines 
(different record types) 


New record type indicated by blank in 
column 7. Record 
Lines that describe different record Type 
types (than the previous line) have Lines 
an Oincolumn 7. 


H or F Header line or field description line (last line of include set) 
oO b New record type indicated by blank in 
column 7. 
Omit AND and OR lines oO A Lines that describe the same record type 
(different record types) (as the previous line) have an A in 
column 7. , 
O oO Lines that describe different record types 
(than the previous lines) have an O in 
column 7. 


1There are no field description lines in omit sets. Each omit set must be followed by an include or an include-all set. 


Omit AND tines 
(one record type) 





Guide to Using Include and Omit Sets 


When to Use Include Sets: \f you want to sort only a few 
records in a file, use an include set for each type of record 
you want to sort. 


When to Use Omit Sets: \f you want to sort all but a few 
records in a file, use omit sets followed by either an include 
set for each type of record you want to sort or an include- 
all set. 


Mixing Include and Omit Sets: You can mix include and 
omit sets; but because disk sort processes the sets in the 
order they are coded, you must be particularly careful when 
you do this. For example, if you wanted to omit all records 
with a 2 in position 10 but sort those with a 2 in positions 
10 and 15, you would have to specify the include set before 
the omit set. If you specified the omit set first, all the 
records you want sorted would be omitted from the job. 
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Column 7 (Continuation or Comments) 


Column 7 indicates the line’s relationship to the preceding 
line. 












This line is the first of a set of include 
or omit lines. (The type of set is indi- 
cated by the column 6 entry: 1! for 
include — O for omit.) 





The line is a continuation of the pre- 
ceding line. The A stands for AND. 


The line applies to a different record 
type than the preceding line, but the 
contro! field specifications for both 
are the same. The O stands for OR. 


This line is acomment line. Comment 
lines do not affect the program in any 
way. Their only purpose is to help you 
remember what you were doingina _ 
certain section of coding. (Comments 
are printed only if column 27 of the 
header line contains a zero or a blank.) 





Column 8 (C/Z/D/P/U) 


‘Your column 8 entry tells disk sort how to interpret data in 
the factor 1 and factor 2 fields during compare operations. 
When the fields contain alphameric data, a C, Z, or D entry 
tells disk sort what portions of the characters to use. When 
the fields contain signed numeric data, a P or U entry tells 
disk sort whether the data is packed or unpacked. 


Maximum 
Col. 8 Entry Compare Operations Field Length! 
Cc Use both zone and digit 256 characters 
portions of the characters 
















Alphameric Use only the zone portion 1 character 
data of the character 
Use only the digit portion 16 characters 
of the characters 
Signed p pe Numeric data is packed 8 bytes or 16 digits 
data 





1For both factor 1 and factor 2 fields - 

2 Do not use a packed or unpacked factor 1 in an include or omit record 
type specification (P or U in column 8) if you specify an alternate 
collating sequence (S in column 26 of header line). 
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Significance of the Column 8 Entry 


You use record type specifications to tell the disk sort pro- 
gram which records you want to sort. You do this by in- 
structing disk sort to test each record by comparing the 
data in a specific field against a constant or against the 
data in another field in the same record. The data you are 
comparing is the factor 1 field; the data you are comparing 
it against (a constant or the contents of another field in the 
same record) is the factor 2 field. The result of the com- 
parisons determines whether or not that record will be 
sorted. Since the disk sort program sees your data as noth- 
ing more than a series of electronic bits, you must tell the 
program how to interpret the data: 


@ If the data is alphameric, what part of the characters to 
use 


@ Ifthe data is signed numeric, whether it is in packed or 
unpacked format 


Interpreting System/3 Data 


Each System/3 EBCDIC character has two parts: a zone 
portion and a digit portion. Some characters have identical 
zone portions; some have identical digit portions. No two 
characters have identical zone and digit portions. . 


How It Looks inside the Computer 


System/3 Character 


1 Notice that the digit portion of a zero and blank look 
exactly the same. 





If you instruct disk sort to use only the digit portions of 
characters (by putting a D in column 8), characters with 
identical digit portions will look alike and compare as equal. 
Likewise, if you instruct disk sort to use only the zone 
portion of characters (by putting a Z in column 8) charac- 
ters with identical zone portions will look alike and com- 
pare as equal. Thus your column 8 entry is critical in ensur- 
ing that your compare operations produce the results you 
intend. 


Suppose, for example, that you want only those records 
with a 2 in column 15 and a 2 in column 50. If you put 

a D in column 8, you will get the records you want: the 
ones with a 2 in column 15 and a 2 in column 50. But you 
will also get a lot of records you do not want (several char- 
acters have the same digit portion as a 2). To get on/y the 
records with a 2 in column 15 and a 2 in column 50 you 
would have to put a Cin column 8. The C tells disk sort 
to use both the zone and digit portions of characters in its 
compare operations, and no other System/3 character has 
tne same zone and digit portion as a 2. 


Note: The leftmost bit of each byte of ASCII data that is 


. not converted to EBCDIC is set to zeros. 


Alphameric Data 


When the factor 1 and factor 2 fields contain alphameric 
data, the column 8 entry must specify one of the following: 


@ The zone and digit portions of the characters (C entry) 
@ Only the zone portion of the character (Z entry) 


@ Only the digit portion of the character (D entry) 
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Numeric Data 


When the factor 1 and factor 2 fields contain numeric data, 
the column 8 entry must answer two questions: 


1. Are the numbers signed or unsigned? 


2. Are the numbers packed or unpacked? 








Absolute values of the numbers are 
used. If a number has a sign, it is | 
ignored. For example, -3 would be 
considered equal to +3. 











Format of Col. 8 
| Numeric Data Entry Definition Considerations! 


Unsigned Number does 
not have a sign. 
wt 
Signed 
Unpacked : 


Number always 
carries a sign. 
When the number 
is placed in core 
storage it has a 












Number always 
carries a sign. 
When the number 
is placed in core 
storage, it has 
both a zone and 
digit portion 


Signed Numbers: Signed numbers can be either positive or 
negative. The sign of a number is indicated by a 4-bit binary 


code. 


[nay fom | [oi [ era Form 
0000 0000 
0001 0001 
0010 0010 
0011 0011 
Fj : 0100 0100 
Standard form. Disk sort accepts 0101 0101 


all four forms of the plus sign. Be- 
fore sorting the file, however, the 
program converts all plus signs to 
the standard form. If you print a 
core dump, the plus sign will al- 
ways be expressed as a hex F. 
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digit portion only. 


1 Before comparing numeric data, disk sort converts any leading blanks to zeros. 





The sign controls the comparison. 
For example, -3 is less than 0 and 
+5 is more than -6, 


The sign controls the comparison. 
For example, -3 is less than 0 and 
+5 is more than -6. 

































Packed and Unpacked Numbers: An unpacked digit takes 


up eight 





Packed Digits 


covoosun-olf 


bits; a packed digit takes up four bits. 





Unpacked Digits 


Binary Form 






























0110 
0111 
1000 
1001 






OON OA PWN BF O 





—_——— 


Zone Digit 
Portion Portion 


ee ee ne 
Digit Portion Only 


In unpacked numbers, the 4-bit sign code replaces the zone 
portion of the last digit in the number. In packed numbers 
the sign code takes up the last four bits of the number. 


2 0 
Positive 
Zone Digit Zone Digit 


Unpacked 
Negative 
Zone Digit Zone Digit Zone 
_| Positive 
: Digit {Digit Digit 
Packed 


Negative 0 4 
Digit Digit Digit Digit 
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Columns 9-16 (Factor 1 Location) Coding Rules 


Factor 1 fields identify your records. (If all your inventory Entries must be right-justified: the from entry must end in 
records contain an | in column 2, for example, column 2 column 12; the to entry must end in column 16. 

is a factor 1 field.) Disk sort identifies records you want 

sorted by comparing factor 1 fields against constants or To describe factor 1 fields that are only one character 
against other fields in the same record. Columns 9-16 identi- long, leave columns 9-12 (from) blank and enter the number 
fy the locations of the factor 1 fields in the records. If there of the record position that contains the character in col- 

is more than one factor 1 field for the records you are umns 13-16 (to). 


describing, you must: 
For example, here is the entry you would make to describe 


@ Describe each field in a separate record type line. the position of a factor 1 field which consists of an | in 
column 2. 
@ Put an A in column 7 of every line (except the first) to 
tell disk sort that all the lines apply to the same record 
type. 


Record Type 


' Columns 9-12 (from) identify where the factor 1 field be- 
gins in the record. Columns 13-16 (to) identify where the 
field ends. 


Length of Factor 1 Fields 


A factor 1 field can contain anywhere from 1 to 256 char- 
acters. No factor 1 field, however, can be longer than the 
length of the records you are working with. (For example, 
when you are working with 96-column records, the longest 
possible factor 1 field you can have is a 96-character field.) 
The length of factor 1 fields is also controlled by the col- Columns 17-18 (Relation) 
umn 8 entry. 





~ The program identifies records you want to sort by compar- 
ing the factor 1 field (columns 9-16) against either a constant 
(columns 20-39) or another field (columns 20-27) in the 


. same record. The constant or other field is called factor 2. 
Columns 17-18 tell the program what the results of the 
comparison must be. (If alternate collating sequence is used, 


[Z| tcharacter both factor 1 and factor 2 are modified before the compari- 
Ce son is made.) 


P| eeharcter® 
Col. 17-18 
Entry 


pais 
[Net | Factor must not equal fctor@ 
a 





1When factor 2 is a constant, the length of 
the factor 1 field must not exceed 20 
characters (see Columns 20-39 for more 
information). 

















2 Because the factor 1 field is packed, the 
field can actually represent 15 decimal 
digits and a sign. 


Factor 1 must be less than or equal to factor 2. 
Factor 1 must be greater than or equal to factor 2. 


11f you want the program to compare zone portions of 
characters (Z in column 8), EQ and NE are the only 
entries you can use. 
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Column 19 (Field or Constant) 


The program identifies records you want to sort by com- 
paring the factor 1 field (columns 9-16) with a constant, or 
another field in the same record. The constant or other 

field is called factor 2. Column 19 tells the program whether 
factor 2 is a constant or another field. C in column 19 
means factor 2 is a constant; F means factor 2 is a field. 


When you put a C in column 19, you use columns 20-39 
for the constant. When you put an F in column 19, you 
use columns 20-27 to identify the location of the factor 2 
field in the records. 


Columns 20-27 (Factor 2 Field) 


The factor 2 field must be the same length as the factor 1 
field. It also must be in the same record as the factor 1 field. 


Columns 20-27 are used to record the location of the factor 
2 field. Columns 20-23 (from) identify the starting position 


of the field; columns 24-27 (to) identify where the field ends. 


Coding Rules 


Entries must be right-justified: the from entry must end in 
column 23; the to entry must end in column 27. 


To describe fields that are only one character long, leave 
columns 20-23 (from) blank, and enter the number of tne 
record position that contains the character in columns 24-27 
(to). 


Columns 20-39 (Factor 2 Constant) 


When factor 2 is a constant, you use columns 20-39 to write 
in the constant you want to use. The constant can be any 
arrangement of System/3 characters. 


The constant must be the same length as the factor 1 field. 
For example, if you have a 4-position factor 1 field, your 
constant field must take up four positions. If your constant 
is the number 6, you would put the 6 in column 23, and 
either leave columns 20, 21, and 22 blank or fill them with 
zeros. 


Record Type 


Factor 2 (Field or Constant) 








or 





If the factor 1 field contains a packed number, the length 
of the constant (including the sign) must be twice the 
length of the factor 1 field. The reason for this is that fac- 
tor 1 data is in packed form, and the constant you are writ- 
ing in is in unpacked form. 


Alphameric Constants (Column 8 Entry is C, Z, or D) 


The constant must be the same length as the factor 1 field 
and must always begin in column 20. 


Numeric Constants (Column 8 Entry is P, U, or D) 


Format: Numeric constants must be right-justified within 
the field length specified in factor 1 (within twice the field 
length if factor 1 is a packed number). For example, assume 
that factor 1 defines a 6-position field in the input record, 
and that factor 2 is tne numeric constant 123. To right- 
justify the constant within six positions, you would have 
to put the constant in columns 23, 24, and 25. Leading 
zeros are not required. To disk sort, blanks and zeros look 
the same. In the example above, columns 20-25 could 
contain either 00123 or 4646123 (with & representing a 
blank). 


Signed Constants: \f factor 1 is a packed number, the last 
character in the constant must be its sign (+ or -). If factor 
1 is an unpacked number and the constant is a negative 
number, the last digit in the constant must be a character 
that indicates both the numeric value of the last digit and 
the negative sign for the entire constant. 
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Coding Negative Unpacked Constants 


How the Number Looks inside 
the Computer 


Digit Portion? 













Character that 
You Code 


If Last Digit 
in Constant is 
















oO 


— (minus code)3 





OONOOARWHN = 
DOVOZSEFASC 







1 The zone portion indicates the negative sign of the entire number. 


2The digit portion indicates the numeric value of the last digit in the 
number. 





31f your system input device is a system card device, you can punch 
a zero and minus in the same card column. 


For example, here is the entry you would make to sort 
records which have a packed negative 1 (-1) in positions 
1 and 2, an unpacked negative 24 (-24) in positions 5-8, 
and an unpacked negative 10 (-10) in positions 11-16: 


Record Type 















Number 





Location Name | 


Continuation (A/O/") 
C/Z/D/P/U 


Stacker Select 





Type (1/0) 


Columns 40-72 (Comments) 


Columns 40-72 are for your comments. If you have instruc- 
ted disk sort to print sequence specifications (column 27 

of the header line is either blank or contains a zero) the 
comments will be printed along with your sequence specifi- 
cations. The comments have no effect on the program’s 
operation. 


Many programmers like to use columns 40-47 to write the 
names of the records described in the record type specifica- 
tions. This is why columns 40-47 are enclosed in dotted 
lines on the coding sheet. 
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Chapter 5. Field Description Specifications 


Field description specifications tell disk sort how to arrange 
(format) records in the output file. 


COLUMN SUMMARY 






[cane [eoniene Semi 


07x-14x Line number (you can leave column 5 blank, or 


enter any value to keep the specifications in 
ascending order). 
















T 


Data field 
Summary data field 


field 
¥ 


1-4096 Starting position of field in the record (blank if field 
is one character long) 
1-4096 End position of field in the record 


17 Any System/3 Forced control fields only (the character you want 
character the program to change) 
Any System/3 Forced control fields only (the character you want 
character to substitute) 


Columns that must 
be filled in for all 
sort jobs 










Columns that must be 
filled in when forced 
control fields are used 


Blank Forced control field line is not a continuation of the 
preceding line 


Forced control field line is a continuation of the pre- 
ceding line 












Any character 
other than 
blank 






Summary tag along sort only (overflow field length entry) 


40-72 


characters 





Field Description Specifications 37 


COLUMN DESCRIPTION 
Columns 1-2 (Page Number) and 3-5 (Line Number) 


Page number (columns 1-2) and line number (columns 3-5) 
form a 5-digit sequence number. As the program reads 
sequence specifications, it checks the sequence numbers to 
make sure they are not in descending order. If the numbers 
are in descending order (for example, if page 02 specifications 
come before page 01 specifications) and specifications are 
being printed, the program will print a warning next to the 
line. After a warning is issued (the letter S), the program 
reads the rest of the specification lines and then halts and 
waits for further instructions from the operator. The oper- 
ator can either continue or end the job. 


Because page number applies to all lines on the page, col- 
umns 1-2 appear only once, in the upper right corner of 
the page. Number the pages in ascending order. 


Here is the recommended procedure for field description 
line numbers. Field line numbers are 07 through 14. The 
numbers in columns 3 and 4 are preprinted on the coding 
sheet. You can leave column 5 blank, or enter any value 
to keep your specifications in ascending order. If you have 
more than eight field lines, use another coding sheet and 
start at line 07. 


Use column 5 when you want to insert a specification line 
without renumbering the other lines. For example, to in- 
sert a specification line between lines 01070 and 01080, 
you can number it 01075, code it, and then continue to fill 
out the rest of the sheet. 


Be sure any lines that are out of sequence are clearly marked. 
You can do this by writing a note in the margin of the page 
with an arrow pointing to where the insert belongs (see 
Sample Job 3). 


Column 6 (Line Type) 


Column 6 contains a preprinted F, identifying the line as a 
field line. For addrout sorts (SORTA), field lines describe 
control fields the program uses to sort record addresses. 
For tag along sorts (SORTR) and summary tag along sorts 
(SORTRS), field lines describe the fields that the program 
uses to create the records in the sorted output file. The 
fields can be either control fields (used to sort the records) 
or actual data fields. In addition, for summary tag along 
sorts, field lines describe the fields that the program sum- 
marizes (adds together). 
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Column 7 (Field Type or Comments) 


Your column 7 entry tells disk sort whether you are describ- 
ing a control field, data field, or comment line. If you are 
describing a control field, the column 7 entry indicates how 
the field is to be used. See Co/umns 7-8 to find the ways 
you can combine this entry with the column 8 entry. 






Col. 7 Entry Tells Program 


= This is a data field! 
Poet ll This is a comment line. 


This is anormal control field. Sort this field 
so that the data from the field is in the se- 

quence specified in column 18 of the header 
line. 














This is an opposite control field. Sort this 
field so that the data from the field is in the 

sequence opposite that specified in column 18 
of the header line. 


This is a forced control field. Change the con- 
trol field according to the entries in columns 
9-19. 


fice oon This is a summary data field? 


1Use this entry for tag along (SORTR, SORTRS) sorts 
only. (If you use a D entry during an addrout sort, the 
line will be treated like a comment line.) 










2Use this entry for summary tag along (SORTRS) only. 
(If you use an S entry during an addrout sort, the line 
will be treated like a comment line. If you use an S 
entry during a tag along sort, the fields will be 

treated as normal data fields). 


Data Fields (D in Column 7) 


Data fields apply to tag along (GSORTR, SORTRS) sort 

jobs only. They are fields you want the program to include 
in the sorted records, but which you do not want the pro- 
gram to use in sorting the records. Within each include set 
(include and field description lines), control field lines 
must be placed before data field lines. 


When your file has more than one type of record: 


@ The number of data fields does not have to be the same 
for all record types. 


@ The total lengths of all the data fields do not have to be 
the same for all record types. Disk sort places blanks to 
the right of shorter data fields so that all total lengths 
are equal. 


Comment Lines (* in Column 7) 


Comment lines help document the program. They do not 
affect the program’s operation. You can code comment 
lines anywhere in the sequence specifications; however, 
comments will be printed only if column 27 of the header 
line contains a zero or blank. 


Control Fields (N, O, or F in Column 7) 
When your file has more than one type of record: 


@ The number of control fields does not have to be the 
same for all record types. 


@ The total /engths of the control fields do not have to be 
the same for all record types. 


When records with duplicate control fields (records with all 
control fields equal) are sorted, their order as output is 
unpredictable. 


Normal and Opposite Control Fields (N or O in Column 7): 
These control fields are fields the program uses to sort 
records or record addresses. They are fields in your input 
records. However, you can define 1-character contro! fields 
that are not in the records by using an unconditional force. 
(See Forced Control Fields. ) 


Forced Control Fields (F in Column 7): There are three 
types of forced control fields: 

@ Conditional 

@ Force-all 

@® Unconditional 

Forced control fields affect the work and output records 
only. (It is important to remember that disk sort never 
changes your input records.) 

See Column 17, Column 18 and Column 19 for information 


on how to fill out the field description specifications when 
you are using forced control fields. 


A conditional force occurs on/y if a control field in the in- 
put record contains a particular entry. Suppose, for ex- 
ample, that you want to sort a file of records, each of which 
has a 1-position control field. If the character in the control 
field is an X, you want to replace it with an A before you 
sort the records. To do this, you would use a conditional 
force. Your conditional force field would tell disk sort: 


@ Build a work record from the input record: 


‘1-position control field 


one | ¢ | —one— a 


Input record 


Control field portion 


Data portion 





Work record 


1-position control field 


@ Ifthe control field contains an X, change it to an A: 





Original work record New work record 


Force-all is a special type of conditional force. Force-all 
occurs only when a control field in an input record does not 
contain a particular entry. Suppose, for example, that you 
want to sort a file of records, each of which has a 1-position 
control field. If the character in the control field is not a 

C, you want to put an X in the field before you sort the 
records. To do this, you would use a force-all line to force 
the X into the control field. 


A force-all line follows a series of conditional force lines. © 
For example, you may want to tell disk sort: 


@ If the control field contains a C, replace it with a 1. 
@ If the control field contains an F, replace it with a 2. 
@ If the control field contains a $, replace it with-a 3. 
@ |f the control field does not contain a C, an F, ora $, 


put an X in the control field. (You are forcing out all 
other possible entries by using a force-all line.) 
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An unconditional force does not depend on entries in the 
input records. If, for example, you want to put a dollar 
sign ($) in the first position of every output record, you 
would use an unconditional force. Your unconditional 
forced control field would tell disk sort to put a dollar sign 


in the first available control field position of the work record. . 





ee 
Control fields Data portion 
portion 


Any other control fields will go after the dollar sign. Assume 
the input records are in this format: 


Control Control 
The work record will then look like this: 
Control Control Bais 
field A field B 


See Column 19 for actual coding examples of forced con- 
trol fields. 


Summary Data Fields (S in Column 7) 


An S in column 7 of the field description specifications de- 
fines a summary data field. You can define summary fields 
for all three types of sort jobs, but the fields will be sum- 
marized (added together) only in summary sorts. In tag 
along sorts (SORTR), summary fields will be treated as nor- 
mal data fields. In addrout sorts (SORTA), summary fields 
will be treated as comments. 


In asummary sort, the summary data fields in the work 
and output records for individual record types must always 
be in the same position. The fields do not have to be in the 
same position in the input records. (See messages SD278 
and SD280.) 


No more than 24 fields can be summarized for each record 
type. 


The first include set that contains summary specifications 
defines the summary format for all included records. It is 
recommended that all include sets contain summary speci- 
fications. If an include set does not contain summary 
specifications, the data specification should align the data 
for summarization. 
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If no summary specifications are given for a SORTRS type 
sort, the output file consists of records with unlike control 
fields as specified in the field statement. Disk sort deletes 

all records with common control fields. Only one copy 

of each is retained. 


Column 8 (C/Z/D/P/U/V) 

Your column 8 entry indicates what portion of the input 
record’s characters you want disk sort to use in building 
and sorting the work records. The column 8 entry is critical 
in assuring that the sort produces the results you intend. 


See Columns 7-8 to find the ways you can combine this 
entry with the column 7 entry. 


Maximum; 
Col. 8 Entry Character Portion Used Field Length 
Cc Use both zone and digit 256 characters 
portions of the characters 
zZ Use only the zone portion 1 character 
of the character 
Use only the digit portion 16 characters 
of the characters 
The characters are signed, 8 bytes or 
packed decimal! numbers! 15 digits and sign 
U The characters are signed, 16 digits 
unpacked decimal numbers 
V Force a data character into 1 character 
the data field 


1 Note that -3 is less than O and +5 is greater than -6. 



















Suppose, for example, you have a-1-character control field 
in your input records which can be either an *, 1, 2, or 3. 
The zone and digit portion of each character is: 





If you want the records sorted into ascending order using 
the digit portion of the control field characters (by putting 
a D in column 8), they will be in this order: 


xO N= 


If you want the records sorted into ascending order using 
both the zone and digit portions (by putting a C in column 
8), they will be in this order: 


* 


ON — 


Suppose you placed a Z in column 8 and wanted the 
records sorted into ascending order. You can then be sure 
that the records with an * control field will precede the 
records with a 1, 2, or 3 control field. Since 1,2, and 3 
have identical zone portions, records with any of these 
numbers as a control field will not be in any special order 
after the sort. 


If you want to force characters into your data field, place 
a V in column 8 and specify the character to be forced in 
column 18. That character will be placed in the first avail- 
able data field position of the work record. 


As you can see, your column 8 entry can drastically affect 
your sorted file. 


Do not confuse this column 8 entry with the column 8 
entry on the record type specifications. Column 8 of the 
field type specifications tells disk sort what portion of a 
character to use to sort the records. The column 8 entry 
on the record type specifications helps select which records 
you want to be sorted. 


Opposite Control Fields 


If you want to sort records so that some control fields are 
in ascending order and other control fields are in descend- 
ing order, use opposite control fields. An opposite control 
field is sorted in ascending order (if you specify descending 
order on the header line), or in descending order (if you 
specify ascending order on the header line). 


If your file contains different record types, all of which 
have an opposite control field in the same record position, 
your column 8 entries for these control fields must be one 
of the following: . 


@ All Ds 
@ All Cs 
© All Zs 


@ Any combination of Cs and Zs 


With any other combination of entries (fer example, Ds and 
Cs), you will not be able to predict the results of the sort. 


When you use opposite control fields, disk sort changes 
them in building the work record. Therefore, you usually 
drop this meaningless control field information (by coding 
an X in column 28 on the header line) for tag along or 
summary sorts. If the opposite control fields are all Ds, © 
you do not need to drop the control field. If you wish to 
retain the original control field data in the output record, 
repeat the information as a data field. 


Packed or Unpacked Control Fields (Normal or Opposite) 


If you specify packed or unpacked control fields, disk sort 
changes the contro! fields while building the work record. 
Therefore, you must drop the control field information by 
coding an X in column 28 on the header line. If you wish 
to retain the original control field data in the output record, 
repeat the information as a data field. 
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Forced Control Fields 


Here are a few rules to remember when you are using 
forced control fields: 


@ You can have only one character in your forced control 
field. 


@ You can indicate either a conditional or an unconditional 
force. 


@ A force-all line must be preceded by a conditional force 
line. 


@ You define a forced control field by placing an F in 
column 7 of the field specifications. 


See Columns 9-16, Column 17, Column 18, and Column 
79 for further information on how to complete the field 
specifications. 


Using Control Fields to Sequence Information in the Sorted 
Records 


The order in which you describe contro! fields in the field 
specification lines determines the sequence of the records 
(tag along sort) or the record addresses (addrout sort) in 
the sorted file. 
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Suppose each record in your file that is sorted in ascending 
order (A in column 18 of the header line) -has a normal 
control field in positions 1-2 and an opposité control field 
in positions 5-7. Each record represents one customer’s 
order for a separate item. The part number is in position 
1-2; the number of parts ordered is in positions 5-7. Your 
unsorted file might look like this: 


Input record position 





1 
‘O11 
13 
231 
311 
413 
541 
613 
wees ome’ See 
Input Part Number 
record number ordered 
number 


You can use the first control field to sort the records in 
ascending order according to the part number. You can 
then use the second control field to sort the number of 

parts ordered in descending order within each group of 

parts. Therefore, you want your sorted file to look like 
this: 


Output record position. 





OoOahWwWnd—o 


Nee ee ee ee” 
Output Part Number 
record number ordered 
number 


h 


Include these field specifications to do the preceding sort: 





IBM International Business Machines Corporation Printed in U.S.A. 
SEQUENCE SPECIFICATIONS te aene77 78 70 80 
Header page LL] pone: BaRaee 


tine | 


cae MATCH, 
SORT, SELECT, Largest Total of 
MERGE Control Fields 
Disk: SORTR,  |of Any Record 
|e SORTA, SORTRS| TYPE 
as ae SORTT 


Location 


© Stacker Select 


Reserved 


Notice that the information occupies different positions in 
the input and output records. The record positions change 
when the control fields and data fields are moved from 

the input to the work to the output files. Since an opposite 
control field is specified, all the control fields in the input 
record are dropped (columns 1-2 and 5-7). To save the con- 
trol fields, specify them as data (see example). 


GX21-9089 


Job Description 


Record 
Name. 


10 14 12/13 14 15 16]17 18]19/20 21 22 23]24 25 26 27128 29 30 31 32 33 34 35 36 37 38 39/40 41 42 43 44 45 46 47/48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 


Comments 


—— oe 


Field | 
.Name ! 


40 41 42 43 44 45|46 47 48 49 50 51 52 53 54 55 56 57 58 59 GO 61 62 63 64 65 66 67 68 69 7071 72 


THs! Cor Riolt| FIEND |S! DIROIPIPED| | | | | 
THIS! cowlrRot| FILED] |t\s| DROPPED | | | | 
CONTROL |FITELD) DEISC|RITIBEID |A\s| DATA! | 
ClOMITIROL| |FILIEDID| Dieisiciar Blew) Als] DIAIrAl | | 


Columns 7-8 





Here are all the possible combinations for columns 7 and 8: 


rc 
Zz 
D 
P 
U 


= 


Does not apply 
(comment line) 


z1 
bi 
Cc 
Zz 
D 
P 
U 
V 
Cc 
Zz 
D 
P 
U 
V 


1For an unconditional force and a 
force-all line, column 8 must con- 
tainaC. 





See Column 7 and Column & for detailed discussions of 
each entry. 
Field Description Specifications 
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Columns 9-16 (Field Location) 


Columns 9-16 identify the input record positions that con- 
tain the record fields. Columns 9-12 (from) identify the 
starting position of a field; columns 13-16 (to) identify the 
Position in which the field ends. 


The order in which you describe the fields in the field 
description specifications determines the order they will 


be in in the sorted output records. 


For example, suppose you have an input record that looks 
like this: 


Input record 


Field name ITEM PRICE . BAL REORD 


(item (price (number in (reorder 
number) per item) stock) point) 


1 5: 7 12. 15 21 23 29 





Record position 


However, you want your sorted output record to look like 


this: 
Output record 
Field name ITEM REORD BAL 
Record position 1 5 6 12 13 19 


Assuming that you want to sort the records by item num- 
ber, here is how you would fill out the field description 
specifications: 


Field 


~~ 4 


Reserved 1 


Field ! 
Name 1 





Po SIO (Ale iczorum 





jo] 7| | 





As another example, if you want the 1-character field in 
position 20 of your input record to be in the first position 
of the sorted output record, you would describe the field 
in the first line of your field description specifications. In 
this example, the primary control field for the output file 
is determined by position 20 of the record: 


Reserved 


. 
2 
8 
£ 
% 
£ 
Oo 
2 
2 
3 
2 
a 
a 
3 
1A 
Hf 


3 Continuation 























Field Length 


The length of the field depends on the column 8 entry. 





Col. 8 Entry Maximum Field Length 
256 characters 
rae 








16 characters 


Coding Rules 


Entries must be right-justified. The from entry must end 
in column 12; the to entry must end in column 16. 


To describe fields that are only one character long, leave 
columns 9-12 (from) blank, and enter the number of the 
record position that contains the character in columns 
13-16 (to). 


Column 17 (Conditionally Forced Character) 


See Column 7 for general discussion of forced control 
fields. You make an entry in column 17 only when you 
want to use a conditional force. (For example, if you 

want to put an * in a control field only if the present entry 
is an A.) When you use conditional force, the input record 
does not change, but the work and output records will con- 
tain an * instead of an A. (See Column 7 or Column 18 
for more information about conditional force.) 


The column 17 entry tells disk sort which character in the 
control field (defined in columns 13-16) you want to re- 
place. The program checks to see if the control field in 
the work record contains the character you specified in 
column 17. If it does, the character in column 18 replaces 
the control field character. 


If a control field can contain any one of several characters 
and you want to specify a forced character replacement 
for each one, you must include a column 19 entry in all 
the forced field lines (except the first). See Co/umn 79 for 
instructions. 


Column 18 (Forced Character) 


See Co/umn 7 for general discussion of forced control fields. 
You make an entry in column 18 only when you are using 
forced control fields to sort your records. The character 

in column 18 either replaces the control field character you 
specify in column 17 or adds a new character to the control 
field. 


Remember that the change to the control field does not 
alter your input record. Remember, too, that you must 
use forced control characters only with 1-character control 
fields. 
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Defining a Conditional Force Character 


1. Fill in columns 1-6 as you would for any control 
field. 


2: Put an F in column 7. 


3. Define the position of the control field in the input 
record in columns 13-16. 


4. Enter the character you want to replace in column 17. 


5. Enter the character you want to replace it with in 
column 18 (you can use any System/3 character i 
column 18). 


Defining a Force-All Character 


1. Fill in columns 1-6 as you would for any control 
field. 


2. Put an F in column 7. 


3: Put the character which replaces the control field in 
column 18. 


4. Put any System/3 character in column 19. (The 
character in column 19 tells disk sort that the tine 
is a continuation of the preceding line.) 
5. Leave columns 9-17 blank. 
If you do not place a force-all line after conditional force 
lines and disk sort does not find the specified characters in 


the control field of the input record, disk sort: 


@ Replaces the control field character with hex FF (if you 
specified ascending sequence in the header line). 


@ Replaces the control field character with hex 00 (if you 
specified descending sequence in the header line). 
Defining an Unconditional Force Character 


Vi Fill in columns 1-6 as you would for any control 
field. 


2. Put an F in column 7. 
os Put the character you are forcing in column 18. 
4. Leave columns 9-17 blank. 


Sample Job 4 illustrates the use of conditionally forced 
characters to group record types. 
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Specifying an Overflow Indicator Field 


1. Fill in columns 1-6 as you would for any control 
field. 


2. Put an S in column 7. 
3. Put a V in column 8. 


4. Enter a character in column 17 if you do not wish to 
use an * asa replacement. !f overflow occurs in any 
summary data field in the record, the initial value of 
the overflow field will! be replaced by the character 
in column 17. 


5. Enter a character in column 18. If none of the sum- 
mary data fields overflow, the overflow field will 
contain the character specified in column 18. 


Column 19 (Specifying Replacements for More Than One 
Character) 


If a control field in the input record can contain any one of 
several characters and you want to specify forced character 
replacements for more than one character, use a separate 
line to define each possible character and the forced charac- 
ter you want to replace it with. 


Note that column 19 is assumed blank for the first field 
statement of an include set. 


Coding Rules 

‘lr. Define the control field in columns 13-16. 

2. Enter the first character you want to replace in 
column 17. 


i Enter the character you want to replace it with in 
column 18. 


4. Enter the next character you want to replace in 
column 17. 


5. Enter the character you want to replace it with in 
column 18. 


6. Enter any character (except blank) in column 19. 
This tells disk sort the line refers to the same control 
field:in the work record as the preceding line. 


Repeat steps 4, 5, and 6 for any other characters to be 
replaced. 


Note that you can use any System/3 character you want in 
column 18. 


Examples of Using Forced Control Fields ® Conditional force using normal or opposite and forced 
control fields 
You can use forced control fields to change (add to or re- 
place) a character in a 1-position control field. The follow- @ Force-all 
ing examples represent these types of forced control 
characters: 
Unconditionally Forced Character 
@ Unconditional force 
This example illustrates how you can unconditionally place 
®@ Conditional force using only forced control fields a control field into the work and output records: 


Position 1 (control field) | 20-22 (data field) 


Input record 


Field description 
specifications 


This unconditional force 
moves a + into the first 
available work record po- 
sition. 


&@ Continuation 


< 
2 
g16 
a 
5/2 
3 
v= 
2 
318 
ala 
7/38 


Le | 
Pe) 


Move the data field (po- 

sitions 20-22 of the input 
_record) to the next three 

positions of the work record. 





Work record 572 


Control Data 
field field 


Output record 572 


‘Control — Data 
‘field field 
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Conditional Force Using Only Forced Control F. ields 


This example illustrates how control field characters change 
according to the conditions you specify. 


Position 4 (control field) 20-22 (data field) 


Input records 
a 


Field description 
specifications 


If position 4 of the input record contains 
an A, move a 1 into the work record. 


If position 4 contains a B, move a 3 into 
the work record. 


If position 4 contains a C, move a 2 into 
the work record. 


é 
é 
RI 
: 
17 
Al 
BI 
Cc 
| 





Move the data field (positions 
20-22 of the input record) to 
the work record. 


Work records 


3 


P= [= 


Control. Data 
field field 


Output records TT] ote | 
P| 


Control Data 
field field 


This example also shows how you use column 19 to specify 
conditional replacements for more than one character. Be- 
cause continuation lines are used, only one position in the 
work and output records is defined by the first three lines. 
If column 19 is left blank, each line would define a new 
position in the work and output records. 


If you are sorting records into ascending order (A in column 
18 of the header line), disk sort places hex FF into the work 
record before you force any characters. If you are sorting 
records into descending order (D in column 18 of the header 
line), disk sort places hex 00 into the work record before 
you force any characters. Therefore, if disk sort does not 
find an A, B, or C in position 4 of the input record, the hex 
00 or FF is left unchanged in the work record. 


Conditional Force Using Normal or Opposite and Forced 
Control Fields 


This example is similar to the previous one since the con- 
trol field in the input record causes changes in the work 

and output records. In this case, however, disk sort first 
moves the control field to the work record (because the 
first control field is a normal control field) and then changes 
it if necessary. Notice that any forced character replace- 
ments are made before the records are sorted. 
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‘Position: 1 (control field) 


20-22 (data field) 


Field description 
specifications 


a 
71x 
41x 
tT 


= Ts | so 
(7 | oe 


Control Data 
field field 


Sorted output records 


(7 | ee | 
eye! ee ee” 


Controi Data 
field field 
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Move the control field (in position 1 
of the input record) to the work rec- 
ord and use it to sort the records into 
order (assume that ascending order is 
specified on the header line). 


!f position 1 of the input record contains 
a 9, replace it with a 7 in the work record. 


If position 1 of the input record contains 
a 7, replace it with a 9 in the work record. 


Move the data field (positions 
20-22 of the input record) to 
the work record. 


Force-All 
Suppose your control field can contain characters other 


than A, B, or C. If you don’t want a hex FF or 00 in the 
work and output records, use a force-all line. 


Position: 1 (control field) 


20-22 (data field) 


Input records 
[_. 
gos 


Field description 
specifications 


Work records 


177 


Control Data 
field field 


Output records 
177 


Control Data 
field field 





If position 1 of the input record contains 
an A, move a 1 into the work record. 


If position 1 contains a B, move a 3 into 
the work record. 


> If position 1 contains a C, move a 2 into 


the work record. 


This is a force-all tine. If position 1 of the 
input record does not contain an A, B, or 


C, place an * into the first available work 


record position. 


Move the data field (positions 
20-22 of the input record) to 
the work record. 
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Columns 20-22 (Overflow Field Length Entry) 


These columns are used only by a summary tag along sort 
to eliminate the possibility of an overflow condition. 


You can eliminate the possibility of an overflow condition 
by increasing the length of the summary data field to allow 
for any anticipated overflow. This can be done by coding 
an overflow field length entry in columns 20-22 of the field 
description specifications. The overflow field length entry 
should reflect the sum of the summary data field length 
and the anticipated overflow length. The entry must be 
right-justified to column 22, and cannot exceed the maxi- 
mum field length. 


Columns 20-22 are ignored for an FSZ and FSV since these 
fields can be only one byte long. 


For example, if you want to summarize an unpacked field 
in positions 6-10 of your input record and you know that 
the output will exceed the 5-position summary field by 2 

positions, specify a 7 in column 22: 





If packed fields are summarized, columns 20-22 should - 
specify the number of bytes of packed data. 


For example, if you want to summarize a packed field in 
positions 1-3 of your input record and you know that the 
output will exceed the 3-position packed summary field 
(5 numbers plus sign) by 1 position, specify a 4 in column 
22 (7 numbers plus sign): 





Note: When some include sets do not contain summary 
specifications, care should be taken to align the data for 
summarization. 
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Columns 23-39 


These columns are not used. Leave them blank. 


Columns 40-72 (Comments) 


Columns 40-72 are for your comments. If you instructed 
disk sort to print sequence specifications (column 27 of the 
header line is either blank or contains a zero), comments 
are printed along with your sequence specifications. The 
comments have no effect on the program’s operation. 


Columns 40-45 are enclosed in dotted lines on the coding 
sheet, because many programmers like to use these columns 
to write the names of fields they described in the field lines. 


Chapter 6. Sample Disk Sort Jobs 


Each job in this section has: 

1. An introduction explaining its purpose 
2. Filled-out sequence specification sheets 
3. Discussion of the sequence specifications 


The first six jobs use one or more of the following files and 
input records. (Sample Job 7 uses other files and input 
records, which are explained in the introduction to that 
job. Sample Job 8 uses the inventory file and input records, 
and is included to illustrate multivolume multiple device 
input. Sample Job 9 uses the inventory file and input 
records, and is included to illustrate record selection on 
hexadecimal input.) | 


| Fites | Records in Fites | Records in Files Contents of Records 
Inventory file Inventory records Quantities of items in stock 
eee of transactions for each stock item 


Issue | Issuerecords | | Shipments of items to customers | of items to customers 


Receipt records Purchases of more items from suppliers (vendors) 
Adjustment records Corrections to inventory quantities 










Transaction file 
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The format of the four types of records are shown in the 
following charts: 


Record Formats for the Inventory File 


Inventory 
Record 
Positions 


25-27 
28-29 
30-34 
35-39 
40-45 
46-50 


51-56 
58-62 


69-74 
75-80 
81-86 


87-91 
92-96 


97-99 


100-105 
106-111 


Field 
Names 


ITEM 


CLASS 


DESC 


LOC 


UNIT 


COST 


PRICE 


REORD 


QTY 


BAL 
ORDER 


AVAIL 
PORDER 
PDATE 


VEND1 
VEND2 


TRANS 


TDATE 
ISSUES 


Contents! 


Item information 
Number of stock item to 
which the record applies 


Class of the item (men’s cloth- 


ing, jewelry, etc) 
Description of the item 


Stock status and reorder 

information 

Location of the warehouse 
where item is stored 

Unit of measure for ordering 
the item (by the pound, by 
the dozen, etc) 

Cost of the item per unit 

Price (per unit) at which 
item is sold — 

Reorder point (lowest stock 
quantity allowed) 

Number of units to order 
when reordering | 

Number of units in stock __ 

Number of units ordered, but 
not yet received 

Number of units available 
(BAL + ORDER) 

Purchase order number 

Date of purchase order 

First vendor 

Second vendor 


Transaction activity 

Number of transactions for 
this period 

Data of last transaction 

Number of units issued dur- 
ing this period 


1 Any unsigned numeric field (packed or unpacked) can be treated 
as character information. 
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Record Formats for the Transaction File 


Record 
Positions 


8-12 


13-19 
20-27 
28-33 
34 

35-39 
40-42 
43-50 


2-5 


6-11 
12-16 


17-22 
23-27 


9-13 


14-17 


18-23 


Field 
Names 


ID 
ITEM 
QTY 
CUST 
INV 
DATE 
DIS 
PRICE 


CON1 
COST 


CLASS 
ITEM 
PRICE 


PORDER 
QTY 


ID 
ITEM 
CODE 


QTY 


OK 


DATE 


Contents? 


Issue Record 

1 (identifies this record as an 
Issue record) 

Number of the stock item to 
which record applies 

Number of units ordered (5 
dozen, 32 pounds, etc) 

Customer number 

Invoice number 

Date of the order 

Discount information 


' Price of the item per unit 


The constant 001 
Total cost of items ordered 


Receipt Record 

R (identifies this record as a 
receipt record) 

Class of the item ordered 
(men’s clothing, jewelry, etc) 

Number of the item ordered 

Price of the item per unit (by 
the dozen, by the pound, 
etc) 

Purchase order number 

Number of units ordered 


‘Adjustment Record 


A (identifies this record as an 
adjustment record) 

Number of the stock item to 
which record applies) 

Adjustment code (identifies 
reason for the adjustment) 

Number of units (dozen, 
pounds, etc) being added or 
subtracted 

Authorization for the 
adjustment 

Date of the adjustment 


1 Any unsigned numeric field (packed or unpacked) can be treated 
as character information. 


SAMPLE JOB 1: INCLUDE ON FIELD RELATIONSHIP 


To illustrate an INCLUDE on field relationship, this sample 
job produces a file of inventory information for reordering 
stock items. 


The program selects inventory records for stock items for 
which the quantity on hand (AVAIL field) is less than or 
equal to the reorder point (REORD field). 


Output records are to contain information needed to reorder 
the items. The information is in these fields: CLASS, 
ITEM, DESC, UNIT, COST, OTY, AVAIL, PDATE, 
VEND1, VEND2, and PORDER. 


Output records are to be in ascending order by class (CLASS 
field) and by item numbers (ITEM field) within each class. 





IBM International Business Machines Corporation 


SEQUENCE SPECIFICATIONS 





Card Match 7 
Card: MATCH, 
SORT, SELECT, Largest dota of Stacker Select 
Control Fields 
z 


Output 


of Any Record Record 


Length 


Output Option (Xx) 
Verify Option (N)} 


Print Option 
& Check point Option(C) 








Reserved 


2 


3 


Total — 54 characters 


and PORDER on page 02) 


P| ds | sere Po’) 
CO a ae 
aa | 
Sat 4 | 


Reserved 


(including VEND1, VEND2,; 


1 2 


GX21-9089 


Printed in U.S.A, 


75 7677 78 79 80 


Program 
Page identification 


Job Description 


21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39|40-41 42 43 44 45]46 47 48 49 50 51 52 53 54 


Total — 10 characters +--+} {ee eae aE EYE Ere 
; HEEELEECEEHEEHE Cie BSE RIP EON OF! TE a 
| ll [1 UINirir| lolF| MeAisiulRie! | | 


||P 
EIR DER 
NiziT/S| [A 
URICIHIAIS: 


[ar] 
Pet 
PT STI 


| 
VF 
E 


55 56 57 58 59 60 61 62 63 64 65 66 G7 68 69 7071 72 





M_\NiUIME|R' 
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Since there is not enough space on the first coding sheet for 
the last three fields, they are coded on a second sheet. To 
show the proper sequence for the last three fields, put a 02 
in columns 1-2 of the second coding sheet: 





International Business Machines Corporation 


SEQUENCE SPECIFICATIONS 
Head 


GX21-9089 
Printed in U.S.A. 


75 7677 78 79 80 
Program 
Identification 


1 2 





Card Match 


Location 


Header Specifications 
Column 6 


H identifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


The control fields used to sort records in this job are CLASS 
and ITEM. The total of their lengths is 10, which is the 
entry for columns 13-17. 


Column 18 

A stands for ascending order. Output records are to be 
sorted into ascending order by CLASS and ITEM fields. 
Columns 29-32 

The output records contain eleven fields, including two 
control fields (CLASS and ITEM) and nine data fields. Con- 
trol fields are not being dropped (column 28 blank). There- 


fore, the length of the output record is the total length (64) 
of all eleven fields described in field specifications. 
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Comments . | 


Record Type Specifications 
Column 6 
| identifies the line as an include line. The input records 


described by the line are used by the program. All others 
are omitted. 


Column 8 
Both factor 1 and factor 2 fields are numeric positive fields. 


The D in column 8 causes zeros and blanks to be considered 
equal in case leading zeros were not recorded. 


Columns 9-16, 17-18, and 20-27 
Inventory records for which the number of units available 
(AVAIL) is equal to or less than the reorder point (RE- 


ORD) are selected: 


@ Columns 9-16 identify the location of the AVAIL field 
(record positions 69-74). 


® Columns 20-27 identify the location of the REORD 
field (record positions 40-45). 


® Columns 17-18 define the relation between the two 
fields. 


Column 19 


’ An F in column 19 indicates that factor 1 is compared to 


the field located by the entries in columns 20-27. 


Field Specifications 
Column 6 


F identifies the lines as field specification lines. 


Column 7 


The first two fields described (CLASS and ITEM) are nor- 
mal control fields. The rest are data fields. All are included 
in the output record (column 28 of header line is blank). 


The records are sorted into ascending order by the CLASS 
field. Within each class, the item numbers (ITEM field) 
are in ascending order. 


Column 8 

Zone and digit portions of all fields are used as they appear 
in the input records. 

Columns 9-16 


Columns 9-16 identify the locations of fields in the input 
records. 


Sequence of Records in 
CLASS Sequence ITEM Sequence Sorted Output File 


Lowest item number 
Next higher item number 
Lowest class number | Third higher item number 


Highest item number 


Lowest item number 
Next higher item number 
Third higher item number 


Each higher 
class number 


Highest item number 


Lowest item number 
Next higher item number 
Highest class number | Third higher item number 


Highest item number 





Lowest class number — Lowest item number 
Lowest class number — Next higher item number 
Lowest class number — Third higher item number 


Lowest class number — Highest item number 


Class number — Lowest item number 
Class number — Next higher item number 
Class number — Third higher item number 


Class number — Highest item number 


Highest class number — Lowest item number 
Highest class number — Next higher item number 
Highest class number — Third higher item number 


Highest class number — Highest item number 
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SAMPLE JOB 2: ADDROUT SORT Header Specifications 


To illustrate an ADDROUT sort, this sample job produces 


: oe a, : Column 6 
a record address file for an entire inventory file. 
Assume that the inventory file is an indexed file. The H identifies the line as a header line. 
ITEM field is the record key used in the index (the record 
keys are in ascending order). 
Columns 7-12 
This job creates a record address file. containing relative . 
record numbers of all records in the file, It sorts them into SORTA identifies the job as am ADDROUT sort. 
ascending order by the CLASS field. Within each class, 
addresses are also sorted into ascending order by ITEM Columns 13-17 
field. . 
The control fields used to sort addresses in this job are 

As a-result of this job, inventory records can be processed CLASS and ITEM. The total of their length is 10, which 
consecutively in either of two ways: is the entry for columns 13-17. 
1. By using the file index, which is in ascending order 

by ITEM field. Column 18 
2. By using the record address file created by the disk A stands for ascending order. The records are sorted into 

sort program, which is in ascending order by CLASS ascending order by item class (CLASS field), and by item 

and also by ITEM within each class. number (ITEM field) within each class. 















GX21-9089 


IBM International Business Machines Corporation Printed in U.S.A. 
SEQUENCE SPECIFICATIONS tem 2816.77.78 79 80 
Header Page ‘eins EEE 


Card: MATCH, 


SORT, SELECT, |{2r9est Total of 
MER Control Fields 


Disk: SORTA, [Of AnyRecord 
SORTA, SORTRS| Type 


Tape: SORTT 


Job Description 


Sequence (A/D/S) 
8 Checkpoint Option(C) 
Verify Option (N) 


7 8 9 10 11 12{13 14 15 16 17 


R| 


34)35 36 37 38 39]/40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 Gt 62 63 64 65 66 67 68 69 70 71 72 


TIAL LLL EI@Al 


Comments 


Field 
.Name 











eee ee ech Ls) 23) 
e's tee el | 
ee eh oe 
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Record Type Specifications Column 8 


Because all input records are being used and all have the C means that both zone and digit portions of the characters 
same field specifications, no record type specifications are in the CLASS field are used in the sorting process. 


needed (include-all is implied). 


D means that only the digit portions of the characters in 


; ness the ITEM field are used in the sorting process. This 
Field Specifications causes blanks to be treated as zeros. 


Column 6 


Columns 9-16 
F identifies the lines as field specification lines. 


The CLASS field is located in positions 7-10 of the input 


records. 
Column 7 


-The ITEM field is located in positions 1-6 of the input 


Both fields (CLASS and ITEM) are normal contro! fields. records. 
The record addresses are sorted into ascending order by 
CLASS field and by {TEM field within each class: 


Sequence of Records in 
CLASS Sequence ITEM Sequence Sorted Output File 


Lowest item number Lowest class number — Lowest item number 
Next higher item number Lowest class number — Next higher item number 
Third higher item number Lowest class number — Third higher item number 


















Lowest class number 


Highest item number Lowest class number — Highest item number 







Lowest item number Class number — Lowest item number 
Each higher Next higher item number Class number — Next higher item number 
class number Third higher item number Class number — Third higher item number 














Highest item number Class number — Highest item number 






Highest class number — Lowest item number 
Highest class number — Next higher item number 
Highest class number — Third higher item number 


Lowest item number 
Next higher item number 
Third higher item number 








Highest class number 






Highest item number Highest class number — Highest item number 
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SAMPLE JOB 3: AND LOGIC—OPPOSITE CONTROL 
FIELDS 


The program selects inventory records for stock items in 
classes 0126-0130. 


Output records are to contain only inventory information 
that indicates the activity (transactions) involving the stock 
items. The information is in these fields: ITEM, CLASS, 
TRANS, and ISSUES. 


Output records are to be sorted in ascending order by class 
(CLASS field), and in descending order by number of trans- 
actions (TRANS field) within each class. 





GX21-9089 
Printed in U.S.A. 


IBM International Business Machines Corporation 
SEQUENCE SPECIFICATIONS Se cam (en2e.77 78 79 80 
Header Page oaneaies CEE rr 


Card: MATCH, 
SORT, SELECT, 


: 
= 
MERGE Control Fields 
[Soarasonins|te 
8] sorta, SORTRS 
Be 
6 18419 


Largest Total of(8 












Job Description 


Checkpoint Option(C} 
Verify Option (N} 


Tape: SORTT 
7 8 


[o}o]o]u|SJORITIR| 








CAEL CLMSET FBS! Weer aula TTT 


NIC 
a 
PITT TT TTT TTT TT TTT 
Ce bees ae IT Lear] 
ee TASS el heel abe ene Te 
PT ee eI TIT LDS 


Comments 





r 
a 
| 
eee 
| 








wont TT LASS! CLAsis| OF HiTieM-[-DiEWEL Riv, ef! 
CURRIN) T NUMBER) olf! IriglaINSlalcirizioNs! | | | 

CCCeCEe ee iret Cr sirocik| eirem| Wum@elel ||| DCT 
Too = Sehcades + -ERABS Reson rem eUEcat. ere 
“CEheliaisisIcluiaisis| [ole] Izirlemi- Ue Weiav, Elric 

PCCCCECEC ETT esiswe St Wiuleplelal olf] jubiciris| [rsisiuleDl | | | 
COO ee 
Bier Pais ese Sess Linas bec bik hve easter 
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Header Specifications 
Column 6 


H identifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


The control fields used to sort records in this job are CLASS 
and TRANS. The total of their lengths is 7, which is the 


entry for columns 13-17. 


Column 78 


A stands for ascending order. One control field (CLASS) is 
defined as a normal control field in field specifications. 
The other control field (TRANS) is an opposite control 
field. The records, therefore, are sorted into ascending 
order by item class (CLASS field), and into descending 
order by number or transactions (TRANS field) within 
each class. 


Column 28 


X indicates that control fields are being dropped from the 
output records because the TRANS field is an opposite 
control field. The program must convert the information 
from the TRANS field into a special form so that the 
records can be sorted properly. The program does not 
return the information to its original form after sorting. 
The information, therefore, would be meaningless. 


The information from these two fields, however, is neces- 
sary in the output records. Therefore, the fields are also 
defined as data fields (see the explanation of column 7 of 
the field specifications for this example). 


Columns 29-32 


Because control fields are dropped from the output records, 
the length of the output records is the totaldength of the 
fields defined as data fields in field specifications. The 
length is 19, which is the entry in columns 29-32. 


Record Type Specifications 
Column 6 


| identifies the record type lines as include lines. The input 
records described by these lines are used by the program. 
All others are omitted. 


Column 7 


A in column 7 means that line 02 is a continuation of the 
definition of the record described in line 01. A means 
AND. An input record must meet all conditions listed in 
lines 01 and 02 before it is included. 


Column 8 


D in column 8 of lines 01 and 02 means that the digit por- 
tions of the characters in positions 7-10 of the records 
(factor 1) is compared with the digit portion of the con- 
stants 0126 and 0130 (factor 2). Leading blanks in posi- 
tions 7-10 would be treated like zeros. Therefore, 6126 
(6 is blank) and 0126 would be considered equal. 


Columns 9-16, 17-18, and 20-39 


Inventory records that indicate the activity (transactions) 
of stock classes 0126-0130 are to be selected: 


@ Columns 9-16 (factor 1) identify the location of the 
CLASS field (record positions 7-10). The CLASS field 
contains 4-digit class numbers. 


@ Columns 20-23 list constants (C in column 19), that in 


this example define the upper and lower limits of the 
classes being selected from the inventory file. 


® Columns 17-18 define the relationship between the 


input record field being used to build the file (factor 1) 
and the constants in factor 2. All inventory classes 
equal to or greater than (GE) 0126 and equal to or less 
than (LE) 0130 are to be included in the sorted file. 


Columns 19 and Columns 20-39 
AC incolumn 19 indicates that factor 1 is compared to a 


constant in columns 20-39. The constant in line 01 is 
0130; the constant in line 02 is 0126. 
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Field Specifications 
Column 6 


F in column 6 of lines 07-12 indicates that the lines are 
field specification lines. 


Column 7 


Column 7 indicates the type of fields being described. The 
fields described in lines 07 and 08 (CLASS and TRANS, 
respectively) are control fields. CLASS is a normal control 
field. TRANS is an opposite contro! field. Output records 
are sorted so that CLASS fields are in the order indicated 


in column 18 of the header specifications (ascending order). 


Records having the same CLASS field are in descending 
order according to the TRANS field. 
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The fields described in lines 09-12 are data fields. They are 
included in the output record but have no effect on the 
sequence of the records. 


Note that the CLASS and TRANS fields are described 

once as control fields and once as data fields because 
TRANS is an opposite control field. Its contents in the 
control field portion of the output records are changed in - 
the sorting process and would be meaningless for later 
processing. Therefore the control fields are dropped from 
the output records (X in column 28 of the header specifica- 
tions) and CLASS and TRANS are defined as data fields so 
they would still appear in the output records. 


The form of the output record is as follows: © 


ITEM CLASS | TRANS | ISSUES 


1 <———_> al —_—> Gales = ia[14-<—»-19| 





Positions 


SAMPLE JOB 4: MULTIPLE INCLUDE SETS 


This sample job produces a history file of transaction in- 
formation by selecting records for all transactions in the 
transaction file. 


The entire file of input records is used in creating output 
records. The output records will be used to produce a his- 
tory of the activity involving various stock items. 


Output records are sorted by record type: RECEIPT 
records first, ISSUE records second, and ADJUST (adjust- 
ment) records last. Each type of record is sorted into 
ascending order by item number (ITEM field). The ISSUE- 
records also have a subcontro} field - DATE OF ORDER. 







GX21-9089 
Printed in U.S.A. 


IBM international Business Machines Corporation 
SEQUENCE SPECIFICATIONS Mra sade jah 18 02 7878 80 
Header Page unas BEET] 


Card Match : 
Card: MATCH, 
SORT, SELECT, Largest Total of z Stacker Select 
Control Fields 


of Any Record 


Job Description 


= Sut Option (x) 


Option(C) 
Option (N) 


; Print Option 


2 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 GO 61 62 63 64 65 66 67 68 69 70 71 72 


* 


PITT TTT tT TTT TTT TTT irlelelelriir) | TT TT TET 
| MEE EREEEE TEE 







‘Comments 


Field | 
.Name | 
t 


21 22 23 24 25 26 27 28 29 30 3 33 34 35 36 42 43 44 45|46 47 48 49 50 51 52 63 54 55 56 57 58 69 60 6 61 62 63 64 65 66 67 68 69 7071 72 


oes PUTT TTT TT oc! lonrmot| rec el {11 

COE INU F| rem! ORDERED! | 111 
ECHPLCEEE EHH eties| eae oF) ae eeu Bic 
Total — 20 choracters-| 11 PRIEEL T PRICE! lor inert lem init || | 

TCCHP ORDER PURCHASE Ollie NuMeleR. [111 
CCOCCCO Tatty, TT Wu Mielelel lor] (ulviriris| loielleRiebol [1 
PCEECCCCECCECCAEECCEe EEE 
i 





j>lelw|=[olo] a] ~ | 
pee yt 








Sample Disk Sort Jobs 63 





GX21-9089 


IBM International Business Machines Corporation Printed in U.S.A. 


SEQUENCE SPECIFICATIONS 12 ogame 2? 78 70 80 
Header Page ideemiaies [TTT 





Card Match 


| Record Type 









Location 





EEL Mlel@lelz| 11 1 TTT seve CT 
eS pear ee Ie Ee are SPT nae ISIS Tigh Pole aie Spa Teil Say 
HHH este Pets TSS es Se VS ET Pon a tel aba sled le] 

Ae EEE Vel lol ets a) SEG ene Ball cI SLi PNM ahs fehe ale bele e/a! 

HH REIN eA tener Sct ME lal Pooh depeche] tech] aned Tere Tbe 

eT SCSI CLS aot AP SSE Taleb ae Eee hoes isabel 


Comments 











Field 


2 23 24 25 26 27 28 29 30 31 32 3 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 7071 72 


21 38 39]40 41 42 45]4s 

MTT || IRORCIED! IcoNTROL IF TED) || | | | 
[Total — 13 characters | | | | | | [1 STock! ITTEM INUIMBER! | | 11 [| tT 
dsb Sle er lee aa | | DATE! for loRDER |! 1 | LITT 
- eee tt |. NUMBER OF VINIITS! lORDERED] | | 


& 

ta chara PTE | CUSTOMER NUMBER | | {| tt | ||| 
a 
| 


4 | 


‘ 
7 ha 

26) tal — 26 characters | | | | | | |, ZINNOT Cel NUMBER | |] {itt tT 
als HH RHEE |! IDTSClollNTT INFORMATION! | ||| | | 


ee aera Li PIRTCIE [oF [rite IPE] (CITIEM! | I | | 


ees tetelelets| 
Po iiss, ier se 


Be 
El 
| tis 
|_| Fel 
|| BI 
| | BI 





GX21-9089 
IBM International Business Machines Corporation Printed in U.S.A. 


SEQUENCE SPECIFICATIONS - V2 rogram (2228.22.78 70 80 
Header Page (d/3| certs Pere) 





Card Match 


] - Record Type 






TUT Tales TPCT 1 1 aoustr EEE e Ee eee 
elapse PPELELCUCESCCCECCCECEEAP TPES CCerErE Ce Crcceee EE 







Comments 
















o 
<i Record Character 
@ Substitute Character 
















19} 7| ole 1 dite FTE TTT iReiepl clo TROL IVE 1111 
ele i) LT TIT TT Stem | 6Miochk| (tiem NUMBER || tt TTT TT 
[2 DLL T TTT TTT tT TT TT TT TT feeb | Jalpuluistimeni clopiel | | tt | tI | 
0 [Total — 18 characters +/+} {oy |_| NUMBER oF NETS (t || 
if] (| SKLAR IZATION 
+ [2] VTL TL TTT TE ET TTT TTT LT ibariel | JoArriel lolF] ADMvistrimMeN | tT | | TT | 
+ [2 AEGNGR AUER PAADARBUGARMGR TA NRUSHRERGRE BAUER GANESH 
amg PTI Pte le ASL ste teak ele ola eat bal PID PILAR (SiS IL pele al ate TET 





64 


Header Specifications 
Column 6 


H identifies the line as a header tine. 


Columns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


Three types of records are described, one on each sheet. 
The total length of the control fields for each type of 
record is 7, 13 and 7 characters, respectively. The largest 
of these totals (13) is the entry used in columns 13-17. 


Column 18 


A stands for ascending order. It indicates the order into 
which output records (described in the three sets of field 
lines) will be sorted. 


Columns 29-32 


The total length of control fields for each type of record 
described is 7, 13, and 7 respectively. The total length of 
data fields for each type of record is 20, 26, and 16 respec- 
tively. The largest control field total (13) is added to the 
largest data field total (26) and the result (39)-:is used in 
columns 29-32. 


Record Type Specifications 
Column 6 


Column 6 in line 01 of each of the three sheets contains an 
1 indicating that the lines are include lines. The input 
records described by these lines are used by the program. 
All others are omitted. © 


| Column 8, Columns 9-16, Columns 17-18, Column 19, and 
Columns 20-39 


Column 8 in line 01 of each of the three sheets contains a 
C indicating that the entire character in position 1 of the 
input records is to be compared with the constants R, I, 
and A respectively. Only input records with one of those 
characters in position 1 will be included in ths job. 


In the record type lines, columns 9-39 have the following 
meanings: 


@ Columns 9-16 identify the input record position (positio: 
1) being compared against R, |, and A. 


@ Columns 17-18 indicate the comparison result that deter: 
mines whether an input record is used (the character in 
position 1 must equa/ R, |, or A). 


@ Cin column 19 of each line indicates that the characters 
against which the input record character is compared 
are constants supplied in columns 20-39. 


® Columns 20-39 supply the constants (R, |, and A, res- 
pectively) used in the comparison. 


Field Specifications 


Field specifications differ for the three types of records 
being described. The records, therefore, were described on 
separate coding sheets. 


Column 6 


F in column 6 of lines 07-12 on sheet 01, lines 07-14 on 
sheet 02, and lines 07-12 on sheet 03 indicate that the lines 
are field lines. 


Column 7 


Column 7 indicates the types of fields being described for 
each of the three types of records. The records described 
by sheets 01 and 03 (RECEIPT and ADJUST records 
respectively) have two control fields. The records describ- 
ed by sheet 02 (ISSUE records) have three. The remaining 
fields described are data fields. 
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These diagrams show the formats of the output records that 
will be created from each of the three types of input records. 
The numbers underneath the field identification blocks indi- 
cate the position that information will occupy in the output 


record, 


Control field 


PORDER 





CLASS ]{ PRICE 


Receipt records 
(sheet 01) 


pe field 


| 1 feet ahh 4+} } Sees leecneeeif ated 34<——_—> 39 


Data 





Issue records 
(sheet 02) 


Control field 


Adjust records 
(sheet 03) 


The first control field in each type of output record is a 
forced control field. The number 1 will begin every 
RECEIPT output record, 2 will begin ISSUE records, and 
3 will begin ADJUST records. This forces all RECEIPT 
output records to be first, all ISSUE records second, and 
all ADJUST records third. 


The output records for this job must be the same length. 
The total number of characters in the control fields 
described for RECEIPT and ADJUST was less than the 
total for ISSUE records (the control field length for ISSUE 
on the header is used to assign the absolute length of the 
control field). Therefore, the program added binary -zeros 
at the end of the control fields for RECEIPT and ADJUST 
output records. Blanks were added at the end of the data 
portion of RECEIPT and ADJUST output records to make 
the total length of the records equal to the total length of 
ISSUE output records. 
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Columns 9-16 and Column 18 


Columns 9-16 of the field lines identify the locations of the 
fields in the input records. 


The first control field for each type of record is a forced 
control field. On each sheet, it is described by a force-all 
line. For this reason, columns 9-16 are blank in those lines. 
Column 18 identifies the character to be used in the forced 
control field: 1 in output records created from RECEIPT 
records, 2 in ISSUE output records, and 3 in ADJUST out- 
put records. 


SAMPLE JOB 5: SUMMARY SORT—ELIMINATING 
DUPLICATES 


This sample job produces a list of inventory items requir- 
ing adjustments by selecting all adjustment records in the 
transaction file. 


The output record is a control field consisting of the stock 
item number only. 


Since the output record consists of no data field and, in 
particular, no summary data fields, the result of the 
SORTRS job will be to eliminate all duplicate adjustment 
stock item numbers from the file. 


The output records, each consisting of a unique stock item 
number that had an adjustment, are to be in ascending order. 


The output provides a list of all stock items that had an 
adjustment. 
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Header Specifications 
Column 6 


H identifies the line as a header line. 


Columns 7-12 


SORTRS identifies the job as a summary sort. 


Columns 13-17 

Only one contro! field is used in this job: ITEM. Its 
length is 6, which is the entry for columns 13-17. 
Column 18 


A stands for ascending order. 


Columns 29-32 

The output record consists of one control field only. The 
output record length is 6, the control field length. 

Record Type Specifications 

Column 6 

| identifies the record type line 01 as an include line. Input 


records described by this line are to be sorted. Since this is 
the only include set, all other records are omitted. 
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Column 7 

Line 01 is the first (and only) include line of this include 
set consisting of lines 01 and 07. Therefore, column 7 
must be blank. 

Column & 

AC in column 8 tells disk sort to use both the zone and 
digit portions of the factor 1 and factor 2 fields described 
in line 01. 

Columns 13-16, 17-18, 19, and 20 . 

Only adjustment records containing an A in position 1 are 


to be included in the sort. 


Field Specifications 


Column 6 


F in column 6 of line 07 indicates that this is a field specifi- 
cation line. 


Columns 7 and 8 


NC in columns 7 and 8 of line 07 indicates that it is a nor- 
mal contro! field consisting of both the zone and digit 
portions of the characters in the input records included in 
the sort. 


Columns 9-16 
Columns 9-16 of line 07 identify the location of the stock 


item number (having a length of 6) that is to be used as the 
control field. 


SAMPLE JOB 6: SUMMARY SORT-—INSERTION OF 
CHARACTER DATA--FDV 


This sample job produces a summary history file of issues 
by customer number by selecting all ISSUE records from 
the transaction file. 


Using a summary sort (SORTRS), a file is to be formed con- 
sisting of each customer to whom any stock item was issued. 


Each output record consists of a unique customer number, 
the total number of issues it had, and the total dollar value 
of all the issues. 


The output records are to be in ascending order by customer 
number. 
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Header Specifications 
Column 6 


H identifies the line as a header line. 


Columns 7-12 


SORTRS identifies the job as a summary sort. 


Columns 13-17 


The work record as well as the output record consists of a 
control field made up of the customer number. Its length is 
7, which is the entry for columns 13-17. 


ore ey 


Column 8; 


A indicates that the control field is to be sorted in ascend- 
ing order. 


Columns 29-32 


The control field is not to be dropped when writing the 
output file. The length of the output record is the control 
field (seven characters) added to the data fields specified 
by lines 08-14 (16). This totals 23 and is the entry for 
columns 29-32. 


Record:Type Specifications 


gm! 
gue 


Column 6 
| identifies the record type line 01 as an include line... Input 
records described by this line are to be sorted. Since this is 
the only include set, all others are omitted. 

Column 7 

Line 01 is the first (and only) include line of this include 


set consisting of lines 01 and 07; therefore, column 7 must 
be blank. 


70 ites. 


Columns 8, 16, 17-18, 19, and 20 


Only ISSUE records containing the full character | in posi- 
tion 1 of the input records are to be included in the sort. 


Field Specifications 
Column 6 


F in column 6 of lines 07-14 indicates that the lines are 
field lines. 


Columns 7 and 8 


NC in line 07 specifies that this is the control field to be 
sorted in the sequence specified in column 18 of the header 
line (ascending order) using both the zone and digit por- 
tions of the characters. 


Lines 08, 09, 11, and 12 are data summary overflow fields 
which are used here as data field unconditional 1-character 
force fields. 


Line 10 indicates that this is a summary data field. When 
the data in the input record (positions 40-42) is used to 
build a work record, only the digit portion of the charac- 
ters is used. This is done since CON1 is an unsigned deci- 
mal number. Using a D in column 8 with signed number 
causes the absolute value of that value to be used. 


Line 13 also is specified as a summary data field. However, 
U in column 8 indicates that this is signed unpacked decimal 
data. The sign is to be moved to the work record and used 


in subsequent summary additions. 


Line 14 is specified as the summary overflow indicator byte. 


Columns 9-16 

Entries are placed in the from and to columns for lines 07, 
10, and 13 to indicate the control field, digit summary 
data field (CON1), and the signed unpacked decimal sum- 
mary field cost, respectively. 

For lines 08, 09, 11, and 12, the entries are blank since 
these are overflow indicator specifications. 


Column 17 


The X in line 14 defines the field as an overflow field. 


Column 18 


This column is only used for lines 08, 09, 11, 12 and 14. 
The line numbers and the forced value in the data fields 


are: 
08 & (blank) 
09 # 
11 % (blank) 
12 $ 
14 & (blank) 


The initial work record created from the ISSUE records will 
look like this: 


Control field Data fields 


i a _ gO OEY TT EET Rg - , 
CUST SAA CON 1 | 6] S | COST : 
Positions ra | 
738 12413414 N15 22 423 


Since this is a summary sort, the CON1 and COST fields 
will be summarized for records having identical control 
fields (CUST). These positions 10-12 (CON1) in the work 
records will be summarized to reflect the total number of 
issues (TNUMB) for a given customer number. Likewise, | 
positions 15-22 (COST) will be summarized to reflect the 
total cost of all issues (TCOST). 


The output record will look like this: 





: b 
Positions | 
i . 718 9410 12413 144415 22] 23 


A blank in position 23 indicates that TNUMB and TCOST 
are valid sums. X in position 23 indicates that overflow 
occurred summarizing TNUMB and/or TCOST 08 this: 
customer number giving invalid sums. 
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SAMPLE JOB 7: NEGATIVE VALUES POSSIBLE 


This sample job illustrates the possibility of ending up 
with negative values by sorting the summary history file 
by descending total dollars issued. 


The input for this job is the output file created by Sample 
Job 6. Each input record has the following format: 


Field 
Name _ 


Customer number 





Record 
Position 





Constants: # and # 
Total number of issues to customer 
Constants: and $ | 
Total cost of all issues to customer 


Overflow indicator: 


& — TNUMB and TCOST are 
valid sums 


X — Invalid sum; overflow 
occurred while summar- 
izing TNUMB and/or 
TCOST 


Only records with valid TNUMB and TCOST will be used. 
A record sort of the valid records is desired; that is, the for- 
mat of the output record is to be identical to the input (the 
output of the second summary sort sample job). 

The records are to be sorted by total dollars issued (TCOST) 
in descending order. It is possible that TCOST could be 
negative for some customer numbers. For this reason, a 
sort that considers the sign must occur. 

Header Specifications 


Column 6 


H identifies the line as a header line. 
Columns 7-12 


A record sort involving no summary data required a tag 
along sort. SORTR is the chosen entry. 
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Columns 13-17 


One type of record is specified to be included. The total 
length of the control fields for this type is 8 (the entry in 
column 17). 


Column 18 


D stands for descending order. The largest positive number 
comes first; the largest negative number (the negative num- 
ber having the largest absolute value) comes last. 


The absolute values of -19 and -99 are 19 and 99. -99 is 
more negative than -19 since its absolute value is greater 
than 19. 


Column 28 

Xx indicates that the control field is to be dropped when 
forming the output file. 

Columns 29-32 
When the control field is dropped, only the data portion 
remains. This data portion is the entire input record; thus, 
23 is entered in columns 29-32.. 

Record Type Specifications 

Columns 6 and 7 

Two record types are specified: One type is to be omitted 
(O in column 6); one is to be included. Each record type is 
specified by one record type line. Since these lines are the 
first (as well as the last) record type lines in their sets, 
column 7 must be blank. 

Columns 8 9-16, 17-18, 19, and 20-39 

For statement 0101, these columns specify that if position 


23 in the input record contains the full character constant 
X, the record is to be omitted. 


Statement 02 includes all records not omitted by statement 
01. For each record included, a work record is formed by 
the field specifications, statements 07 and 08. Note that 
the control field is an 8-position unpacked field (statement 
07). 


For a more complete discussion of numeric data see 
Column 8 and Columns 9-16 under Record Type 
Specifications. 

Field Specifications 


Column 6 


F in column 6 of statements 07 and 08 indicates that these 
are field lines. 


Columns 7, 8, 9-16, and 18 


Statement 07 indicates unpacked data in the control field 
from positions 15 through 22 of the input record. (This 
control field is dropped because an X has been coded in 
column 28 of the header specifications.) 


Statement 08 indicates that the entire record is included as 
data. carat 


bo 
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The records are selected by CLASS number 0126 and 


VENDOR numbers 00023, 00108, and 01120. 


SAMPLE JOB 8: MULTIPLE INPUT FILES 


This sample job illustrates the use of multiple input files 


by producing a 5-year history of sales of selected classes 


of items from selected vendors. 


Output records contain information needed to identify 


which vendor's line of this CLASS has sold the best (num- 
ber of transactions and number of units) per year for the 


The input is from the current year inventory file (multi- 


current year and the past four years. The information is in 


the following fields: 
TDATE, ISSUES. 


ITEM, CLASS, VEND1, TRANS, 


volume file) and from the inventory files for the past four — 


years (single-volume files on four input devices). 


Output records are to be sorted in ascending order by year 
(last two positions of TDATE field), then by VENDOR 


The record format for all files is the same as that used for 


the inventory files. 


number (VEND1 field, and finally by ITEM number (ITEM 


field). 


OCL required for the program is given in the following 


figure. 


Tinted in U.S.A. 


Form X21-9107 
e ; 


'BM System/3 Basic Assembler Coding Form 


CARD ELECTRO NUMBER 


t 
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a 
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< 
be 
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Header Specifications 
Column 6 | 


H identifies the line as a header line. 


Columns 7-12 


SORTR identifies the job as a tag along sort. 


Columns 13-17 


The control fields used to sort records in this job are the 
last two positions of the TDATE field, and VEND1 and 
ITEM. The total of their lengths is 13, which is the entry 
for columns 13-17. | 


Column 18 

A stands for ascending order. Output records are to be 
sorted in ascending order by YEAR, VENDOR number, 
and ITEM number. 

Columns 29-32 

The output records contain six fields, including the three 
control fields. Control fields are not being dropped (col- 


umn 28 blank). The output length is the total length (26) 
of all six fields described in field specifications. 
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Record Type Specifications 
Column 6 


| identifies the line as an include line. The input records 
that match the specifications of these lines are included. 
All other records are omitted. 


Column 7 


A identifies the line as an AND statement while O identifies 
the line as an OR statement. The sequence of the lines is 
important in determining the include logic. The logic 
shown includes three types of input records, each type 
being included only if the two AND include requirements 
are met. 


Column 8 


D means that the digit portions of the characters in posi- 
tions 7-10 and 87-91 of the records (factor 1) is compared 
with the digit portion of the constants (factor 2). Leading 
blanks in positions 7-10 would be treated like zeros. 


Columns 9-16, 17-18, and 20-39 


Inventory records that indicate the activity of stock CLASS 
equal to the constant 0126 and vendor (VEND1 field) equal 
to the constants 00023, 00118, and 01120 are to be 


selected. 


Column 19 and 20-39 


C in column 19 indicates that factor 1 is compared to a con- 
stant in columns 20-39. 


Field Specifications 
Column 6 


F in column 6 of lines 7-12 indicates that the lines are field 
specification lines. 


Column 7 


Indicates the type of fields being described. The fields 
described in lines 07, 08, and 09 (TDATE, VEND1, and 
ITEM) are control fields. N specifies they are normal con- 
trol fields so that output records will be sorted in the order 
indicated in column 18 of the header specifications. 


The fields described in lines 10-12 are data fields. The 
form of the output record is as follows: 


TDATE VEND1 ITEM CLASS TRANS ISSUES 


Positions 1-2 | 3 7 | a<13 | 14<—>-17 | 18<—>20 | 21-26 | 





Column 8 


C defines both the zone and digit portion of the input 
record used. 


Statement 09 defines only the digit portion of the input 
record used. 
Columns 9-16 


_Identifies the location of the fields in the input record. 
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SAMPLE JOB 9: RECORD SELECTION ON HEXA- 
DECIMAL (BINARY VALUE) 


Data selection on a hexadecimal value (binary value) can be 
accomplished using the System/3 96-column card, 64- 
character set. Two types of include sequences can be used 
to accomplish hexadecimal selection. 


Type 1 


For the 128-hexadecimal values whose zone and digit 
portions appear in the 64-character set (see Appendix C), 
use an include digit (1D) AND’‘ed with an include zone 
(IZ). 


Type 2 
For the 128-hexadecimal values whose zones do not appear 


in the 64-character set (see Appendix C), the following 
type of logic an be used: 


1D 2EQC@ Digit = ‘C’ 
IAP 2LEC2 and<, = ‘2F‘ 
IAP 2GTC1 and >, ae 


These specifications would select a record if position 2 
contained a hexadecimal ‘2C’. 


Consider that the input is from the current inventory file, 
and that the reorder point REORD is a 2-byte hexadecimal 
(binary) quantity in columns 44 and 45 of the inventory 
record. 


The program selects inventory records whose reorder point 
is 7800 (hexadecimal 1E78). 
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Record Type Specifications 


Line 01 (1 D) selects records whose digit in column 44 is 
a ae 


Lines 02 and 03 select records whose packed value in 
column 44 is less than or equal to ‘1F‘ and at the same 
time greater than a zone ‘OF’. 


Note: The only hexadecimal values that satisfy both 
specifications for lines 02 and 03 are; ‘11’, ‘12’, ‘13’, 
14',/15',...,‘1D’, ‘1E’, and ‘1F’. 


Line 04 is acomment line. 


Lines 05 and 06 select records whose zone in column 45 
isa 7 and whose digit is an 8. 


Lines 07 and O8 are the field specifications necessary to 
sort on ITEM and include the remainder of the input record. 
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Appendix A. Conversational OCL for Model 6 


The OCL cycle you use depends on the type of sort you 
want to do: 





Type of Sort 


Cycle To Use What The Cycle Does 


nae 


BUILDC 
CALL 


1A set of OCL statements in a source library is called a procedure. 


Note: See Appendix H for CCP/Disk Sort oriented file 
and program considerations. 








Gives the system the OCL 
statements it needs to run 
the sort job. 


Sort job you plan 
to run only a few 
times 















Stores the OCL statements 
necessary to run the sort 
job in a source library.! 







Sort job you plan 
to run frequently 


Tells the system you want 
to use a procedure! to run 
a sort job. 



















Stores the OCL statements 
necessary to run the sort 
job in a source library.! 






Puts the name of each job 
in the group and the disk 
location of the OCL state- 
ments for each job ina 
source library.! 


Sort job you plan 
to run as one of 
a group of jobs 

























Tells the system you want 
to use the BUILDC proce- 
dure! to run a group of 
jobs. : 
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CODING OCL CYCLES 


This appendix contains keyword-response summary charts 
for the LOAD, BUILD, and CALL cycles. For the keyword- 
response summary for the BUILDC cycle, see the /BM 
System/3 Model 6 Operation Control! Language and Disk 
Utility Programs Reference Manual, GC21-7516. 


@ Words or letters in all capital letters (such as INPUT, 
INCLUDE, R71) are entries the operator must make. 


@ Words or letters not in all capital letters (such as proce- 
dure name, mmddyy) represent information you must 


supply. 


@ P/S indicates the program start (PROG START) key. 


‘@ ENTER- indicates the ENTER - key. 


For more information about any particular statement (key- 
word and response), see the keyword description section of 
the /BM System/3 Model 6 Operation Control Language 


~ and Disk Utility Programs Reference Manual, GC21-7516. 


THE MODIFY STATEMENT 


The only responses shown on the following charts are those 
that apply directly to the disk sort program. For other 
MODIFY options (such as correcting one of the statements 
in a cycle) see the keyword description section of the /BM 
System/3 Model 6 Operation Control Language and Disk 
Utility Programs Reference Manual, GC21-7516. 


THE LOAD CYCLE 


Input file 


$DSORT 
(P/S) 


R1, R2, F1, or F2 
(P/S) 


mmddyy or ddmmyy 
(P/S) 


or 


R1, R2, F1, or F2 
(P/S) 


Disk name 
(P/S) 


VTOC filename 
(ENTER-) 


WORK (optional) 
(P/S) 


R1, R2, F1, or F2 
(P/S) 


Disk name 
(P/S) 


System name for the disk sort program 


Disk that the disk sort program is on 


If you want a different system date for 
your job 


If you want to use the system date for 
your job or no date is required 


Disk sort does not use external indicators 


Name that disk sort uses for file you want 


to sort 

Which disk the file you want to sort is on 
Name of disk which contains the file to 
be sorted 


Name you use for the file you want to 
sort (PAYROLL, INVENT, etc.) 


Name disk sort uses to refer to file you are 
going to use for work area during this sort. 
If WORK is not used, disk sort performs 
automatic work file allocation. 


Disk containing the file you are going to 
use for a work area 


Name of disk which contains the work file 





Appendix A. Conversational OCL for Mode! 6 81 


THE LOAD CYCLE (continued) 


RECORDS 


TRACKS 


[ Prompt ___| Response | Considerations 


Do not specify RECORDS for the work 
file 


Number of tracks file occupies (see 
Appendix E) 


LOCATION If you want to control the location of the 
| file on the disk 
Work file 
If you want to let disk sort control the 
location of the file on the disk 
RETAIN S Scratch status because the work file is 
(ENTER-) used for only one sort job 
FILE NAME OUTPUT Name disk sort uses for the sorted file 
(P/S) 
Ri, R2, Fi, or F2 The disk you want to put the sorted file 
(P/S) on 
Disk name Name of the disk which will contain the 
(P/S) 7 sorted file 
VTOC filename Name you use for the sorted file (this 
(P/S) can be the same as your name for the 
file you want to sort) 
RECORDS 1-999999 Number of records you want to sort 
(see note) (P/S) . 
Output file TRACKS Number of tracks file occupies (see 


(see note) 


LOCATION 


RETAIN 


Appendix E) 


If you want to control the location of 
the file on the disk (if you are overlay- 
ing an input file with an output file you 
must specify LOCATION): 


If you want to let disk sort control the 
location of the file on the disk 


If the output file is built during the sort 
job, it can have permanent (P) or tempor- 
ary (T) status. If the output file existed 
before you started the sort job, the file 
cannot have permanent status since you 
cannot overlay a permanent file. 





Note: These are the space keywords. If you are creating a new output file you must respond 


to one of them. 
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THE LOAD CYCLE (continued) 


FILE NAME (P/S) Disk sort uses only three files 
















Tells disk sort that the OCL statements 
are complete 


MODIFY 











If you are going Sequence 1. Operator is going to enter the 







to enter sequence specifications sequence specifications from the 

specifications 2. //END keyboard (one specification per 

from the key- line) 

board 2. Sequence specifications are com-. 
plete 






Disk sort program sorts your file 










//SOURCE name, unit 1. name =name of the KSE-created 
source library entry which contains 
the set of sequence specifications 
you want to use. 
unit = the disk (R1, R2, F1, or F2) 
whose source library contains the 
sequence specifications you want 
to use. 

2. When all these sequence specifica- 
tions have been read, the disk sort 
program sorts your file 








If the sequence 
specifications are in 
a KSE-created source 
library entry 
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THE BUILD CYCLE 


canoe BUILD NAME 


LOAD NAME 


SWITCH 


FILE NAME 


Input file 


84 ay a 


Procedure name 
(P/S) 


Ri, R2, F1, or F2 
(P/S) 


$DSORT 
(P/S) 


R1, R2, F1, or F2 
(P/S) 


ddmmyy or mmddyy 
(P/S) 


or. 


R1, R2, F1, or F2 
(P/S) 


Disk name 
(P/S) 


VTOC filename 
(ENTER-) 


The name you want to give the procedure: 
@ Maximum of six alphameric characters 
@ Must begin with alphabetic character 

@ Must not be DIR, SYSTEM, or ALL 


The disk containing the source library you 
want to put the procedure in 


System name for the disk sort program 


Disk that the disk sort program is on 


If you want a different system date for 
your job 


If you want to use the system date for 
your job or no date is required 


Disk sort does not use external indicators 


Name that disk sort uses for file you want 
to sort 


Disk the file you want to sort-is on 
Name of disk that contains the file to be 
sorted 


Name you use for file you want to sort 
(PAYROLL, INVENT, etc.) 





THE BUILD CYCLE (continued) 


FILE NAME WORK (optional) Name disk sort uses to refer to file you 
(P/S) are going to use for work area during 
this sort. If WORK is not used, disk 
sort performs automatic work file 
allocation. 


Ri, R2, F1, or F2 Which disk the file you are going to use 
(P/S) for work area is on 


Disk name Name of disk that work file is on 
(P/S) 


LABEL 
Work file 
RECORDS 


TRACKS Number of tracks file occupies (see 
Appendix E) 


LOCATION If you want to control the location of 
the file on the disk 


If you want to let disk sort control! the 
location of the file on the disk 


RETAIN S Scratch status because the work file is 
(ENTER- used for only one sort job 





Appendix A. Conversational OCL for-Model6 85 


THE BUILD CYCLE (continued) 


FILE NAME 


RECORDS 


Output file (see note) 


TRACKS 
(see note) 


LOCATION 


RETAIN 





OUTPUT 
(P/S) 


R1, R2, F1, or F2 


Disk name 
(P/S) 


VTOC filename 
(P/S) 


1-999999 
(P/S) 


PorT 
(ENTER-) 


Name that disk sort uses for file area 
where you want to put the sorted file 


Disk you want to put the sorted file on 


Name of disk which will contain the 
sorted file 


Name you use for the sorted file (this 
can be the same as your name for the 
file you want to sort) 


Number of records you want to sort 


Number of tracks file occupies (see 
Appendix E) : 


If you want to control the location of 
the file on the disk 


If you want to let disk sort control the 
location of the file on the disk 


If the output file is built during the sort 
job, it can have permanent (P) or tempor- 
ary (T) status. If the output file existed 
before you started the sorted job, the file 
cannot have permanent status since you 
cannot overlay a permanent file 





Note: These are the space keywords. If you are creating a new output file you must respond 


to one of them. 
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THE BUILD CYCLE (continued) Hee eae 


You are going to 
include sequence 
specifications in 
the procedure 


You are going to 
put a pointer to 
the sequence 
specifications in 
the procedure 


You are not 
putting sequence 
specifications in 
the procedure 


FILE NAME (P/S) 








Disk sort uses only three files 











INCLUDE 

2. Sequence 
specifications 

3. //END 2. 


MODIFY 





Tells the system you are going to 
include sequence specifications in 
the procedure 

Operator types the specifications 
(one specification per line) 

3. Tells the system the sequence 
specifications are complete 














MODIFY System gives operator opportunity to 

(P/S) correct any mistakes in sequence specifi- 
cations. Operator types RUN when sure 
all the specifications are correct. System 
stores the procedure in the source library 
you specified in the second OCL state- 


ment. 










MODIFY 1. INCLUDE 1. Tells the system you are going to 
2: // SOURCE name, include in the procedure a pointer 
unit to the sequence specifications 
2. name = name of the KSE-created 
source library entry which contains 
the set of sequence specifications 
you want to include in the proce- 
dure 
unit = the disk (R1, R2, F1, or F2) 
whose source library contains the 
set of sequence specifications you 
want to include in the procedure 

















MODIFY RUN You are not going to include sequence 
(P/S) specifications in the procedure. The 
system stores the procedure in the 
source library you specified in the 
second OCL statement. 
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THE CALL CYCLE 


If sequence 
specifications 
are included in 
the procedure 


If sequence 
specifications are 
not in the proce- 
dure and you want 
to enter them 
through the | 
keyboard 


If sequence 
specifications are 
not in the procedure 
but are in a KSE- 
created source 
library entry 
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READY CALL 
(P/S) 







CALL NAME Procedure name Your response to BUILD NAME during 
(P/S) the BUILD sequence 









UNIT R1, R2, F1, or F2 Disk where the procedure is located; sys- 
(P/S) tem displays the procedure 







MODIFY Tells the system the OCL statements are 


correct 











INCLUDED No response System prints sequence specifications 
STATEMENTS 













MODIFY Tells the system the sequence specifica- 
(P/S) tions are correct; system runs the sort 


job 












MESSAGE SD100 1. Sequence 1. Operator types sequence specifica- 
_ ASKING FOR specifications tions on the keyboard (one specifi- 

SEQUENCE 2. //END cation per line) 

SPECIFICATIONS 2. Tells the system the sequence 
specifications have been entered 











MESSAGE $D100 // SOURCE name, unit name = name of the KSE-created source 
ASKING FOR library entry which contains the sequence 
SEQUENCE specifications you want to use. 
SPECIFICATIONS unit = location of disk whose source 





library entry you want to use (R1, R2, 
Fi, or F2) a 


When the system has read all the sequence 
specifications, it runs the sort job 
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WAY TO SUPPLY SEQUENCE 
ADVANTAGES SPECIFICATIONS FOR DISADVANTAGES 
MODEL 6 













OCL Input Device 
Keyboard—if you are 
using conversational 


OCL 
Data Recorder—if 


you are using card 
OCL (not CCP/Disk Sort) 


Conversational — 
OCL only 


Part of OCL Procedure 














You must provide the entire set of 
sequence specifications each time 
you want to run the sort program. 











Most direct e@ Operator can correct typing mistakes 
only in the current specification. The 
operator cannot correct a previous 
specification or insert an overlooked 


specification. 









e@ Saves time in frequently run 
sort jobs. 
. Operator cannot insert a new specification 
Operator can correct mistakes P yee 


: Pena : into the sequence. 
in a specification anywhere Conversational q 
in the sequence. OCL only 


Source Library Entry 
Created by KSE 


















@ KSE checks each sequence speci- 
ification for format accuracy be- 
fore putting it in source library. 
As aresult, there are no error 
halts because of format errors in 

_ the sequence specifications. 


Requires two KSE program runs: 




















1. To put the format descriptions of the 
sequence specifications in asource _ 
library. 











2. To put the sequence specifications 
themselves in a source library. 







Saves time in frequently run sort 
jobs. 
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INTERRELATIONSHIP OF CONVERSATIONAL OCL 
AND SEQUENCE SPECIFICATIONS (MODEL 6) 


The following chart shows the skeleton of the OCL LOAD 
and CALL cycles: the first two keywords and any other 
keywords that are of special significance in the interrelation- 
ship of the OCL and the sequence specifications. The rest 
of the keywords (indicated by arrows) follow the normal 
sequence for that cycle. (Appendix A contains the key- 
word-response summaries for each of the three cycles.) 


The gray areas in each box show where the sequence 
specifications fit into the OCL cycle. 


Supplying Sequence Specifications 


OCL Load Cycle OCL Call Cycle 









READY — LOAD READY 
LOAD NAME —$DSORT CALL NAME To build the procedure 


use a BUILD cycle 
Operator will type 


sequence specifica- 
tions on the key- 


a ee FY 
board (one state- 3 






















ment per line). | Message askin [Message as ing | 
ecifications eee READY — BUILD 
BUILD NAME — procedure 
name 


READY — LOAD READY — CALL 
Sequence specifications LOAD NAME —$DSORT CALL NAME 


are in a KSE-created 
source library entry. To 
use the specifications, 
enter a // SOURCE state- ee. 
ment to give the system 
the name of the KSE entry 
and its disk location. 


MODIFY 









se 
ee asking for To build the procedure 


use a BUILD cycle 


Sequence specifications READY 
have been included in a CALL NAME READY — BUILD 
procedure—along with BUILD NAME -— procedure 
the OCL statements for UNIT — disk location name 

the job. To use the 
specifications, enter 








CALL NAME and UNIT AoE oe ae 
statements to give the # System prints out the 
system the name of the i} sequence specifications or & 
procedure and its disk #a // SOURCE statement 


STORE 


location. 
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SUPPLYING OCL STATEMENTS AND SEQUENCE 
SPECIFICATIONS FOR THE MODEL 10, THE 
MODEL 12, AND THE MODEL 15 







/* (end-of-file) 









(field specifications) 






OCL from system input device 
Sequence specifications from system 
input device 





Use either 
statement 









(record type 
specifications) 








OQOOOOHSORTA 
(header specification) 





| Any number of 
field and record 
type specifications 





// FXLE NAME-OUTPUT, 
... (file description) 






// FILE NAME-WORK 
... (file description) 





Optional 






// FILE NAME-INPUT 
(or INPUT1-8 for Model 12 
and Mode! 15), 

... (file description) 


// LOAD $DSORT, unit 







OCL from procedure section of 

source library 
Sequence specifications from procedure 
section of source library 






// CEND 







// CALL name, unit Placing FILE state- 

ments between the 

CALL and RUN ==> 
statements will over- 
ride the FILE state- 
ments in the OCL 

procedure. Sort 

specification cannot 
~" be overridden. 













(OCL and sequence 
specifications) 









// COPY FROM-READER, 
LIBRARY-P, NAME-name, 


TO-unit, RETAI n-| Pt 












// LOAD $MAINT, unit 
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// SOURCE name, unit 















OCL from system input device 
Sequence specifications accessed from 
source library by // SOURCE statement 


_// FILE NAME-OUTPUT, 
... (file description) 





/] FILE NAME-WORK, 
... (file description) 








// FILE NAME-INPUT 
(or INPUT 1-8 for Mode! 12 
and Model 15). 

... (file description) 


// LOAD $DSORT, unit 


Note: name indicates the 
source library member name 
containing sort sequence 
specifications; unit indi- 
cates the unit identification 
on which the source library 
resides. 


OCL from procedure section of source 
library 

Sequence specifications accessed from 
source library by // SOURCE statement! 








// SOURCE name, unit] See note 







// CALL name, unit 





1The // SOURCE statement can 
come from the system input de- 
vice, or it can reside in the pro- 
cedure containing the OCL. 
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See note 


np | TO-unit, RETAIN} rt 


// LOAD $MAINT, unit 


// COPY FROM- 
READER, LIBRARY-P, 
NAME-name, TO-unit, 


/{ LOAD $MAINT, unit 








// CEND 













(sequence 
specifications) 






// COPY FROM-READER, 
LIBRARY-S, NAME-name, 
T 












(sequence 
specifications) 


// COPY FROM-READER, 
LIBRARY-S, NAME-name, 


TO-unit, RETAIN- e 




















OCL from procedure section of 
source library 
Sequence specifications from system 
input device 





/* (end-of-file) 


Field specifications 


Use either 
statement 









(record type 
specifications) 


QOOOOHSORTA 
(header specification) 





Any number of 
field and record 
type specifications 


— mee oe oe my 


// CALL name, unit 


Placing FILE statements between 
the CALL and RUN statements 
will override the FILE statements 
in the QCL procedure. 








// COPY FROM- 
READER, LIBRARY-P 
NAME-name, TO-unit, 


// LOAD $MAINT, unit 
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WHICH OCL AND SEQUENCE SPECIFICATION METHOD 
TO USE FOR THE MODEL 10, THE MODEL 12, AND 
THE MODEL 15 


The method you use to supply OCL and sequence specifica- 
tions depends on the type of sort you want to do: 


Type of Sort Method to Use How the Method Works 


Sort jobs you plan OCL from system input You supply both OCL and sequence 
to run only a few device; sequence specifi- specifications through the system 
times cations from system input device. 

input device 


Sort jobs you plan Both OCL and sequence You place the OCL statements and 

to run repetitively specifications from pro- sequence specifications (see note) in the 
cedure section of source procedure section of the source library 
library (maximum of 25 using library maintenance, then access 
specification statements them with // CALL and // RUN 
allowed in procedure) statements. 


Sort jobs you plan OCL from procedure You place OCL statements in the pro- 

to run using the section of source library; cedure section of the source library, 

same file but dif- sequence specifications then access them using // CALL and 

ferent sequence from system input // RUN statements. You supply 

specifications device sequence specifications through the 
system input device. 


OCL from system input You supply OCL from the system input 
device; sequence specifi- device. The // SOURCE statement 
cations accessed from accesses sequence specifications (see note) 
source section of source which you have placed in the source sec- 
library by // SOURCE tion of the source library. 

statement from the 

system input device 


OCL from the procedure You place OCL statements in the pro- 
section of source library; cedure section of the source library, then 
sequence specifications access them using // CALL and // RUN 
accessed from source sec- statements. The // SOURCE statement 
tion of source library by accesses sequence specifications (see 

// SOURCE statement note) which you have placed in the 

from the system input source section of the source library. 
device or from the pro- 

cedure section of the 

source library 





Note: When being copied to the source library, the sequence specifications must 
be followed by a // END statement. 
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Appendix C. Collating Sequence 









Standard EBCDIC Collating Sequence 


When Both Zone and Digit Portions of When Only the Zone Portion of When Only the Digit Portion of 
Characters are Used Characters is Used Characters is Used 


Hexadecimal 


Order Corresponding: | Order : Corresponding Order 
Hexadecimal in the Character 
Number? Sequence! Number2 


in the Character Hexadecimal in the 
1 blank | 40 ¢ blank 40 
(lowest) : & 50 
ee ae 1 < 1 - (minus) 60 
3 PCs CCBCSYS:SC(co est) 4D (lowest) DO 
a ee (oe + 4E 
Sa eae ee | ee | 4F FO 


Sequence! Sequence! 
hs Ot ae | 
Oa as oe a ee ES I 5A 
pan ge a ee — 5B 2 
a 2 = 
{ 5D 
| 5B : 























Corresponding 










Hi 


Ye eae 
ee = GS 
ps Dye Meno) aes De 





nTnOOmD 
— a — 










war aly n xoaj=cp ~lo—~ 





a 


et a a ee ee eee 6C C3 
P15 ~~ -(minus) | 60 _| D3 
i 16 de et E3 
A - i | GB F3 
7 18 | % D 
M 
i, dbtiaeoei le es, cl , 
20. —hm,—hCUc>lTLTLT™TTC~satC(Csi‘CSESC‘(SSCO*”CS 4 
E 
22 a eee Ee | ee N 
V 
b= 20S ee _ a = 5 
25 ; 7D — F 
Ww 
6 
G 
E P 
F x 
G 7 
32 [cid H H 
| cE. sd 1 Oo 
| c7. sid; m Y 
| 35 8 






b 
WwW 

oO 

NJ 


mn mim|m Oo 


> 
N 
3s 


@ 
( 
) 


b 
FO 
8 
(highest) 


1When several characters share the same position in the sequence, they are considered equal. For example, 
if you are using only the digit portion of characters; H, Q, Y and 8 (position 9) are considered equal. 

2This is the number you use in ALTSEO statements to identify a character you want to shift to a different 
order in the sequence. 









oD on 


rT 
Im 


(underscore) 






(apostrophe) 
57 


16 
(highest) 


TDM DN nN 


(highest) 
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STANDARD COLLATING SEQUENCE 


The standard collating sequence chart shows the three 
standard collating sequences for System/3: 


® Standard collating sequence when both zone and digit 
portions of characters are being used 


® Standard collating sequence when only the zone portion 
of characters is being used 


®@ Standard collating sequence when only the digit portion 
of characters is being used 


ALTERNATE COLLATING SEQUENCE 


If you want to change the standard collating sequence, you 
must code an S in column 26 of the header specification 
and code ALTSEQ statements. You can code as many 
ALTSEO statements as you need. Each one must begin 
with ALTSEQ and can contain a maximum of 96 positions. 


Note: Do not use a packed or unpacked factor 1 in an 


include or omit record type specification (P or U in column 
8) if you specify an alternate collating sequence. 
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I 
Ce ela en eee 


Coding Rules 


Code ALTSEQ in the first six positions to tell disk 
sort you want to alter the standard collating sequence: 





Leave the next two positions blank: 


Aleit} sleqo] | DI | 


Enter the hex equivalent! of the character you are 
taking out of its normal sequence: 


BRLEEOE<OBP) (hn = hex number) 


Enter the hex equivalent’ of the value the character 
specified in columns 9 and 10 is to assume in the 
collating sequence: 


falu}t{s}eja] | |rl@rl[apD| (hn = hex number) 


Enter as many pairs of 3 and 4 as the number of 
characters you are taking out of normal sequence. 


Leave no spaces between sets of hex numbers: 





When you reach the end of one statement, you can 
continue on the next specification line (follow rules 
1-6). 


Enter a double asterisk in positions 1 and 2 to indicate 
the end of the ALTSEO statements: 








5 See standard collating chart for hex equivalents of all System/3 
characters. 


Input Order When ALTSEOQO Statements Are Used 


ALTSEO statements follow the header line. When you use 
an alternate collating sequence, your input must be in this 
order: 


1. OCL statements 
2. Sequence specifications 


a. Header line 
b. ALTSEQ statements 
Cc. xe 


d. Record type and field description lines as required 


3. File to be sorted 


Programming Considerations 

When you move a character into the sequence position 
normally assigned to another, both the new and the original 
character occupy the same position and are considered equal 
(see the first sample ALTSEQ statement). If you do not 
want the two characters to be equal, you must also move 
the character that normally occupies that position (see the 
second ALTSEQ statement). 

Programming Considerations With Card or 3741 Input . 
Whenever a record is padded on the right with blanks, the 
padded area is altered by the ALTSEQ logic. 

Effect of ALTSEQ Statements on Other Coding 

ALTSEQ statements can change: 

@ Factor 1 and factor 2 


@ Normal and opposite control fields 


@ Control field characters before they are replaced or 
added to by forced fields 


ALTSEOQ statements never change data fields in records or 
forced control field characters. 


Sample ALTSEQ Statements 


To change the sequence of one character: 


ALTSEQ ALTSEQ 40F0 
Statements ** 
Explanation Blank (40) is moved to the position in 


the collating sequence occupied by 
zero (FO). Blanks are zeros, therefore, 
are considered equal. 


To change the sequence of several characters: 


ALTSEQ ALTSEQ 5BC8C8C9C9D1 
Statements ** 
Explanation 5BC8 moves $ (5B) to the position 


occupied by H (C8). 

C8C9 moves H (C8) to the position 
occupied by | (C9): 

C9D1 moves | (C9) to the position 
occupied by J (D1). 

The $, therefore, has been inserted be- 
tween G and H, as follows: 
A,B,C,D,E,F,G,$,H,I, (| and J occupy 
the same position). 


PROGRAMMING AIDS 
A Translation Table and Alternate Collating Sequence Cod- .. 


ing Sheet, X21-9096, is available for you to use to keep 
track of changes you make to the collating sequence. 
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TRANSLATION TABLE AND ALTERNATE COLLATING SEQUENCE CODING SHEET 

















































Form X21-9096 
Printed in U.S.A. 
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Hexadecimal numbers of characters in the standard collating sequences. 


Where you record the hexadecimal number of the character you are going 
to put in that relative position in the sequence. 





The time it takes-to run a sort job can vary greatly and is 
dependent on the following factors: 


@ The amount of main storage available for the sort 
program 


@ Number of records to be sorted 

@ Record size 

@ Number of sequence specifications 

@ Whether alternate collating sequence is being used 
@ Disk location of the input, work and output files 
@ Order of control fields in the input file 


@ Whether or not automatic work file allocation is 
being used 


@ Use of nonverify option 


@ Number of input files and the types of input devices 
(Model 12 and Model 15) 


Here is how each factor affects the length of a sort job. 
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MAIN STORAGE SIZE 

The more main storage the program has: 

@ The more sequence specifications you can have 
@® The longer your records can be 

@ The faster your sort job will run 


See Appendix E for more information and detailed charts. 


NUMBER OF RECORDS TO BE SORTED 


The more records you want to sort, the longer the sort 
job will take. For the most efficient sort job, therefore, 
use the record omit option whenever possible. 


RECORD SIZE 


The larger the records, the longer it will take to sort a file. 
So, if program run time is important to you, do not include 
fields that contain unnecessary information on your field 
specifications. (Every field you do not include decreases 
the record size by the length of that field.) Remember, disk 
sort builds a work record for each input record included in 
the sort. 
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NUMBER OF SEQUENCE SPECIFICATIONS 


The more sequence specifications you use, the less main 
storage space will be available for records. 


@ Each sequence specification uses about 25 bytes of stor- 
age (remember that comment lines use no main storage). 


@ The select/build routine uses approximately 100 bytes of 
storage for functional interfacing. 


@ If you have specified includes and/or omits (referring to 
packed data) for your sort run, the select/build routine 
will use an additional 200 bytes of storage. 


@ If you have specified field statements (referring to packed 
data) for your sort run, the select/build routine will use 
an additional 80 bytes of storage. 


@ Any alternate collating sequence uses an additional 375 
bytes of storage. 


But consider using additional sequence specifications to ex- 
clude records you do not want to sort. The result may well 
be a shorter program run than if you use fewer specifications 
but process more records. 


Amount of Main | Maximum Recommended 
Storage. Assigned | Number of Bytes of 
to Disk Sort! Select/Build Code 


(Zs 
a 
13K [2560 SS—=*S 
14K ase 
15K 
17K 


Pee 
18K 
19K and above 


1Maximum storage in the Model 6 is 16K 


11K 


Poe 
0K 
rk 
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ALTERNATE COLLATING SEQUENCE 


Using an alternate collating sequence increases the time it 
takes to run a sort job. 


DISK LOCATION OF THE FILES 


Because the disk sort program must move each record you 
want to sort two times (first from the input file to the work 
file and then from the work file to the output file), file 
location is an important factor in how long it takes to run 

a job. It is important to minimize the distance the disk 

arm must travel between the input and work file and be- 
tween the work and output file. The following diagrams 
show different ways of locating the input, work, and out- 
put files for a sort job. 


Within each diagram, the different methods of file place- 
ment are shown in order of usual performance character- 
istics. Each succeeding method will normally run faster 
than the methods preceding it. For systems having one 

(or two) 5445 disk storage units available for use with sort, 
work files should be placed on a 5445 disk storage unit, if 
possible. If D1 and D2 are both available, put the work file 
on one drive and the input and output files on the other. 


5444 File Placement 
Using one disk on a single 
drive system 


Input Work Output 


: 
| 


or 


j 
! 
| | output| Work | input | 


Using two disks on a single 
drive system 





Using three disks on a dual 
drive system 


I 
Drive 1 | | Work | ,R1 


Drive 2 
Output 





Using four disks on a dual 
drive system 





Drive 1 
{ 
Work , R2 
Drive 2 \ 
i 
} F2 
or 
Drive 1 | 
Drive 2 | 





R1 


sb 


5445/3340 File Placement 


Using one drive 


Output Input Work 


| Input Output Work 


Input Work | Output | ! 

Using two drives 
' 
Output | Work i 


Input 


| 


Work 


| | Output | 


Work | 


Input 


Input Output ' 
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D1 


D1 


D1 


D2 


D1 


D2 


D1 


Note: If the input and output files are on drives separate 
from the work file, this is optimal file placement. If addi- 
tional 5445 or 3340 disk drives are available (up to four 
on Model 15), then much larger files can be sorted and 
optimal file placement is easier. 
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ORDER OF THE CONTROL FIELDS IN THE INPUT FILE 


Suppose two files contain identical information; however, 
some of the first file’s records and fewer of the second file’s 
records are in the sequence you want. Using the same 
sequence specifications to sort each file, disk sort takes less 
time to sort the first file. 


USE OF THE AUTOMATIC WORK FILE ALLOCATION 
FUNCTION 


Using the automatic work file allocation function generally 
increases the time needed to run a sort job, because this 
function does not always provide the work file arrangement 
needed for a fast sort run. If you are concerned with mini- 
mizing sort run-time, use a well planned work file and-work 
FILE statement, rather than automatic work file allocation. 


NONVERIFY OPTION 


If an N is entered in column 34 of the disk sort header state- 
ment, the disk sort program will not verify data written on 
the work file. The nonverify option can be used on either a 
5444 or 5445 disk pack. The amount of performance im- 
provement depends on file size, number of records, file 
locations, etc. 


Note that when a work file statement is specified for a 3340 
file (D1, D2, D3, D4) on Model 15, the verify option is 
taken from the file statement and column 34 is ignored. 


SAMPLE DISK SORT TIMINGS 

The following timings are supplied to aid you in approxi- 
mating job run times. The sort times shown were generated 
under the following conditions; any changes may decrease 


performance: 


@ Core sizes shown refer to the amount of core storage 
used by disk sort, excluding the supervisor. 


@ All timings reflect the total sort run time (generation 
time plus execution time). 
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@ All runs were made using SORTR, and the record lengths 
shown reflect input, work, and output record lengths. 


@ All control fields used were ten characters long. 


@ All input records were included for minimum select/build 
generation. 


@ Alternate collating sequence was not used. 


_@ No alternate track assignments were made. 


@ Automatic work file allocation was not used. 

@ Optimal file placement was used for all runs (see Disk 
Location of the Files). 

Model 6 and Model 10 Timings Only 


@ Input, work, and output files resided on 5444 Model 2 
and 5445 disks for 5444 and 5445 timings, respectively. 


@ None of the 5445 disks are split cylinder files. 


@ The input files was overlaid by the output file to minimize 
file space usage. 


@ All files were sorted into inverse sequence (from ascending 
to descending sequence). 

Model! 15 Timings 

@ |nput and output files were on D1; work files were on D2. 

@ Only one partition was active during the timings. 


@ All OCL and sort specifications were put on a spool file 
on D3. 


@ All files were sorted into descending sequence (from 


random sequence to descending sequence). 


Sample Model 6 and Model 10 Timings 


5444 
Timings 


5445 
Timings. 


5K Partition 
5,000 Records 
10,000 Records 
12K Partition 
5,000 Records 
10,000 Records 
28K Partition 
5,000 Records 
10,000 Records 
12K Partition 
10,000 Records 
30,000 Records 
28K Partition 
10,000 Records 
30,000 Records 
44K Partition 
10,000 Records 
30,000 Records 


Record Size 


96 bytes 200 bytes 200 bytes 


49 min. 


18 min. 
34 


7 
14 


Note: Alt\ times were rounded to the nearest minute. 
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15 
31 


8 
17 


14 


52 


10 
31 


9 
26 


11 min. 30 min. 
21 62 
7 11 
11 21 
5 8 
9 13 
9 12 
25 33 
7 10 
17 26 
6 9 
15 24 


Dual Drive 
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Sample Model 15 Timings 






100 bytes 200 bytes 





24K Partition 
5,000 Records 
10,000 Records 
20,000 Records 
Mode! 15A 50,000 Records 


5445 2! 
Timing 48K Partition 
5,000 Records 
10,000 Records 
20,000 Records 


50,000 Records 


24K Partition 
5,000 Records 
10,000 Records 
20,000 Records 


7 R 
Model 15B 50,000 Records 


3340 


wee 48K Partition 
Timing 


5,000 Records 
10,000 Records 
20,000 Records 
50,000 Records 


Note: These sample timings increase in direct proportion to the numbers 
of records. For example, using the 5444 (12K partition with a single 
drive) to sort 7500 96-byte records would take approximately 10 minutes. 
That is, about 50% more records are being sorted (50% of 5000 = 2500; 


2500 + 5000 = 7500) so the sorting time takes 50% longer (50% of 7 = 
about 3;3+7= 10). 


Sample Model 12 Timings 


Use the sample timings illustrated for Model 15B for a reasonable 
approximation for the Model 12 run times. 
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INPUT FILE 


Use this formula to calculate how many tracks the input 
file will require: 


Number of records in the file x input record length 


Number of bytes in a track 


The number of bytes in a track is 6144 for the 5444, 5120 
for the 5445, and 12,288 for the 3340 (Model 12 and 


Model 15). Round the result up to the nearest whole number. 


OUTPUT FILE 


Use this formula to calculate how many tracks the output 
file will require: 


Number of records to be sorted x output record length 


Number of bytes in a track 


The number of bytes in a track is 6144 for the 5444,5120 
for the 5445, and 12,288 for the 3340 (Model 12 and Model 
15). Round the result up to the nearest whole number. 


Note: Number of records to be sorted means the number 
of records that will be selected to be sorted. 
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WORK FILE 


Do not use RECORDS to specify the work file, use 
TRACKS. 


Use this formula to approximate how many tracks the work 
file will require: 


Number of records to be sorted x 
2+{ work record length x 
approximate work file size factor 


Number of bytes in a track 


The number of bytes in a track is 6144 for the 5444, 5120 
for the 5445, and 12,288 for the 3340 (Model 12 and Model 
15). Round the result up to the nearest whole number. 


Rather than using this formula to calculate the number of 
work file tracks needed for each additional run of this job, 
you can use the actual number of tracks of work file used 
in this sort. This number is automatically calculated at the 
end of first pass #0 and is printed out as message SD695. 
In order to save time, you can use automatic work file 
allocation for the first run. Then, in subsequent runs, use 
work FILE statements specifying the number of tracks 
printed in message SD695. 


Work Record Length 


Type of Sort Type of Output Work Record Length 
SORTA Address output Length of control fields +3 


SORTR or 
SORTRS 







Control fields only Length of control fields as 
specified in the header line 


Control fields and Length of data + length of 
data control fields. (This is the 
output record length speci- 
fied in the header line.) 













Length of data + length of 
control fields. (Output rec- 
ord length specified in head- 
er line plus the contro! field 
length specified in header 

line.) 


Data only 
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The following table shows the maximum work record fewer than 256 bytes of select/build code in the same 


length for a disk sort run, using various combinations of situation, you can have a work record length of 3064 

main storage size, input record length, and number of bytes bytes. Generally, then, this table shows that for a given 

of select/build code. For example, if disk sort is assigned amount of main storage, the maximum work record length 
12K of main storage and your input record length is 1600 can be increased by using either fewer bytes of select/build 
bytes, the maximum work record length you can have, us- code, or smaller input records, or both. This table can also 
ing the recommended maximum number of bytes of be used to estimate the maximum input and output block 
select/build code, is 2808 bytes. However, if you used size for tape input/output. 


INPUT RECORD LENGTH 


For Jobs with Fewer than 
256 Bytes of Select/Build | Recommended Number of 
Code Bytes of Select/Build Code! 


01-768 01.384 
769-896 385-640 a a 













Amount of 
Main Storage 
Assigned to 
Disk Sort 






Maximum 
Work Record 
Length 















For Jobs with Maximum 















897-1024 641-768 
01-1792 01-896 17842 





[4793-1920 | ___ 07-1408 |-_te28 | 
sx [20892176 | 1837-1664 1016 
[2506-2492 ——«4Y Si 793-1920 | 60a 
| 243-2560 | 1927-2048 | 288 
ponezi7e =| tettsz2 = | 
ai77-2304 Sid ite SiS 
3306-2432 ——Si«dY~CSCS*~C~i 1702 ~——SC~dSCié 
ox bc 2493-2560 | 1793-1920 | __ 1272 
[2861-2688 —~«|~—~C~=itoe 2s —SC~rSCit 
[3817-2946 217-2304 | 504 


| 01-3200 01-1408 | 3064 
3201-3328 1409-1920 2808 





| 83290-3456 | 1921-2432 | 2552 
12K 
| 8585-3712 2561-2688 | 2040 
|p 3841-3968 2817-2044 | 528 





8078-3200 1016 
PO 85201-3328 | 70 
a 
iB 

20K 


1See Number of Sequence Specifications in Appendix D for maximum 
recommended number of bytes of select/build code per job. 














2Not valid for SORTRS (summary sort). 





3For SORTA (addrout sort), 245 is the largest total length of control 
fields for any record type. 
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Work File Size Factor 

































Amount of 
Assigned to For Jobs with Less than For Jobs with 11 or More Work File 
Disk Sort 11 —e Specifications | Sequence Specifications Size Factor 


ores | __ersee nee 
795-190} 108 ——| 39 
P 1921-2048 | 1409-15360 | 1.25 
8K | 2049-2176 | 1537-1664 | 
2977-2304 1665-1792, 52 
| 2305-2432, | 1793-1920, 2.05 


p_ma-2660 | —teas-20ae 208 
Pe t-2t76 | tett5s2 
| 2305-2432, | 1665-1792, | 20 
OK | 2433-2560, | 1793-1920, 25 
| 2561-2688 | 1921-2048 | 1.385 
| 2817-2944 | 277-2304 2.05 


a 2305-2432 a 
























01-1408 
aor 1409-1920 aoe 
3329-3456 1921-2432 ne ae 
pe eres Se 
a 3457-3584 1.13 






[3586-3712 «4? ~SSS—is2ess id 
[3713-3840 —+|~—~—~—io-2e16 Si i 
3847-3968 dt 2944 SiC 
3969-4006 ———~«dtSC*~*~éi BOP ——S~dCi 
po ef 00 
[2201-3328 i 
Paes 25 


3457- | 3457-3584 


20K | a 
and up 
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EXAMPLE 
For this example, assume these values: 


Number of records in the file or files (Model 15 only) = 
2000 


Number of records to be sorted = 1000 
Input record length = 200 bytes 
Work record length: 


SORTA = 13 bytes (control field length = 10) 
SORTR = 210 bytes (control field length = 10) 


Output record length: 


SORTA = 3 bytes 
SORTR = 200 bytes (drop control field) 


Main storage size = 8K 
Work file size factor = 1.17 


Here are the calculations: 


5444 Disk Files 
SORTR SORTA 
inset 2000 x 200\ = 65.1 2000x200\ = 65.1 
File 6144 6144 
17) +2244 

meee 1000 x 210 1000 x 13 x (1.17) +2 = 4.48 
file 

6144 6144 
Gurut 1000 x 200 1000 x 3 
file 

6144 6144 





| Total tracks for all files = 141 Total tracks for all files = 72 
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5445 Disk Files . 













SORTR SORTA 
Input 2000 x 200 2000 x 200 
file —_———- _ 

5120 5120 

Work © 1000 x 210 1000 x 13 x (1.17) +2 = 4.97 
file es eee 
Output 1000 x 200 
file ————_. 





. Total tracks for all files = 169 Total tracks for all files = 85 


3340 Disk Files (Model 12 and Model 15) 


‘SORTR SORTA 

Input 2000 x 200 2000 x 200 
file rae anne cee ae 

12288 12288 
Work 1000 x 210 1000 x 13 x (1.17) +2=3.3 
file — ee 

12288 12288 
Output 1000 x 200 1000 x 3 
file ——_- 


12288 17 tracks 12288 


Total tracks for all files = 70 Total tracks for all files = 38 
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Appendix F. Messages 


An alphabetic code helps you judge the significance of each 
disk sort message: 


T Terminal The error was destructive. The program must end immediately. 
No more error messages will be printed. 
Severe Error A source statement contains an error. The program ends after 
the generation phase. 
= joe | 






















The operator must do something. A system halt follows this 
message. 


An unusual condition has been found. It should be checked out 
to make sure it did not occur as a result of a programming error. 


Information For information only. Messages with an | code indicate current 
status and progress of job. 


To understand the messages, you must also know something 
about how the disk sort program works. Specifically, you 
must know what happens during the generation phase of 
the program and what happens during the execution phase. 





The generation phase translates your sequence specifications 


into machine language: 
Sequence Specifications Object Program! 


The execution phase gets the records you want sorted, 
sorts the records, and finally writes the sorted records onto 
the output file in the order you want them. 








1The object program is often referred to as the select/build routine. 
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SD100—ENTER SORT SEQUENCE SPECIFICATIONS— 
HEADER FOLLOWED BY INCLUDE/OMIT SETS OR 
// SOURCE NAME, UNIT STATEMENT 


Code: 
Explanation: 


System Action: 
User Response: 


A-—Action 

You must tel! the system where the 
sequence specifications for the job are. 
There are two possibilities: the operator 
is going to type them on the keyboard 
(Model 6), on the printer/keyboard (Model 
10 or Model 12), or they are already ina 
source library on one of the disks. 
System waits for response from operator. 
If the operator is going to type the 
specifications on the keyboard (Model 
6), or printer/keyboard (Model 10 

or Model 12), he or she must follow 

this sequence: 

1 Header line 

2. All the include/omit sets 

3. //END 

If the sequence specifications are already 
in a source library on one of the disks 
the operator types a // SOURCE state- 
ment. This gives the system the name 
and disk drive location of the set of 
sequence specifications. 


$D101—PRINT OPTION ASSUMED TO BE 0 


Code: 
Explanation: 


System ‘Action: 
User Response: 


I—Information . 

The print option in your header line is 
not blank O, 1, 2 or 3; therefore, it is 
assumed to be 0. 

The job continues. 

None required. 


$D102—SORT JOB ASSUMED TO BE SORTR 


- Code: 


Explanation: 


System Action: 
User Response: 


W—Warning 

Neither SORTA,SORTR, or SORTRS job 
type is specified on your header line. 
Because an output record length is speci- 
fied, SORTR is assumed. 

The job continues. 

Check to make sure that a SORTR job 


‘was wanted. To avoid this error the next 


time the job is run, fill in columns 7-12 
of the header line properly. 


$D103—SORT JOB TYPE NOT SPECIFIED 


Code: 
Explanation: - 


System Action: 
User Response: 


T—Terminal 

Neither a job type nor an output record 
length is specified in the header line. 
The job ends. 
Place the proper job type in columns 
7-12 of your header line. Resubmit job. 


SD104—BOTH INPUT AND INPUT1 ARE PRESENT 
(Model 12 and Model 15) 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe Error 

The filenames INPUT and INPUT1 are 
considered equivalent by disk sort. Only . 
one of these filenames may be used in 

a disk sort. 

The job ends after the generation phase. 
Eliminate one of the FILE statements 

or change one of the filenames to 
INPUT2, INPUTS, ..., INPUTS. 


SD105—INPUT FILE NOT ONLINE(Disk Sort only) 


Code: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

Pack (or packs) containing the input file 
is not mounted. 

Halt 25 occurs for Model 10, Model 12, 
or Model 15, halt CD45 for Model 6. 
Mount the pack (or packs) containing 
the input file. If the input file-is multi- 
volume offline (if more than one pack 

is assigned to.a removable unit), only 
the first pack assigned to each unit must 
be mounted. Resubmit the job. 
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SD106—WORK FILE NOT ON DISK (Not CCP/Disk Sort) 


Code: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

The work FILE statement specifies that 
the work file is to reside on a device other 
than disk, and disk sort requires the work 
file to be on disk. 

The job ends. 

Either omit the work FILE statement or 
specify the work file to be on disk. If 
you omit the work FILE statement, disk 
sort automatically allocates your work 
file. 


$D108—INPUT AND/OR OUTPUT FILE STATEMENT 


MISSING 


Code: 
Explanation: 


System Action: 


User Response: 


T-—Terminal 

Either the input or output (or both) 
FILE statement is missing in this run. 
The job ends. The CD45 halt (Model 6) 
or 25 halt (Model 10, Model 12, or 
Model 15) cancels the job. 

Include missing FILE statement(s) and 
resubmit the job. 


S$D150—CONTROL FIELD DROPPED-NO DATA 
SPECIFICATIONS 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe 

No data specifications (summary specifica- 
tions included) were given, yet the control 
field is being dropped. If the sort were 
allowed to continue, the output file would 
be all blanks (X‘40’). 

The job ends after the generation phase. 
Add data field specifications and/or retain 
the control field; then resubmit the job. 


$D151—CONTROL FIELD LENGTH NOT SPECIFIED 


Code: 
Explanation: 


System Action: 
User Response: 
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T—Terminal 

No control field length specified on 
header line. 

The job ends. 


-You must place the length of your control 


fields in columns 13-17. Do so, and re- 
submit job. 


$D152—CONTROL FIELD LENGTH TOO LARGE 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

Control field specified too large; 256 is 
assumed. 

The job ends after the generation phase. : 
Make the control field length in columns 
13-17 256 or less. Resubmit job. 


$D153—INPUT RECORD LENGTH UNDETERMINABLE 


Code: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

The record length of your input file can- 
not be determined from information 
stored on disk. 

CCP/Disk Sort users — Columns 39 and 
40-43 of the header statement did not 
contain an R followed by the input 
record length. 

The job ends. 

This is a system-program error. If error 
persists, contact your IBM representative 
for program assistance. 


SD154—ASCENDING SEQUENCE ASSUMED A, 


COLUMN 18 


Code: 
Explanation: 


System Action: 
User Response: 


W—Warning 

Column 18 of your header line has 
neither a D for descending, nor an A for 
ascending sequence. Disk sort assumes 
you want ascending sequence. 

The job continues. 

If you want descending sequence, you 
can cance! the job at the C123 halt 
(Model 6), or at the 22 halt (Model 10, 
Model 12, or Model 15). 


$D155—OUTPUT OPTION ASSUMED X, COLUMN 28 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 


Column 28 of your header line is neither 


an X nor blank. 

Disk sort assumes you want an X in 
column 28 and continues the job. 

If you do not want X, you can cancel the 
job at the C123 halt (Model 6), or at the 
22 halt (Model 10, Model 12, or 

Mode! 15). 


$D156—OUTPUT RECORD LENGTH NOT SPECIFIED 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

This is aSORTR or SORTRS job. Out- 
put record length not specified on header 
line. Disk sort assumes you want the 
maximum length of 4096. 

The job ends after the generation phase. 
Enter an output record length in columns 
29-32 of your header line and resubmit 
the job. 


$D157—OUTPUT RECORD LENGTH TOO LARGE 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

This isa SORTR or SORTRS job. Out- 
put record length specified on header 

line is too large. Disk sort assumes you 
want the maximum length of 4096. 

The job ends after the generation phase. 
Make sure your header line is not shifted 
by one or more columns. Specify on out- 
put record length of 4096 or less and re- 
submit job. 


SD158—OUTPUT RECORD LENGTH INCONSISTENT 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

This is aSORTR or SORTRS job and 
you are not dropping the control field. 
Consequently, the output record length 
(Columns 29-32) that includes the con- 
trol field should not be less than the con- 
trol field (columns 13-17). 

A length equal to that in columns 29-32 
plus the largest total control field (col- 
umns 13-17) is assumed. 

Recompute your output record length, 
change it on your header line, and resub- 
mit the job. 


SD159—WORK RECORD LENGTH TOO LARGE 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

Disk sort’s work record exceeds the 
maximum length allowed. 

Halt CD45 (Model 6) or halt 25 (Model 10, 
Model 12, or Model 15) occurs. 

Refer to Appendix E to determine the 
maximum work record length. 


$D160—ALTERNATE COLLATING SEQUENCE 


ASSUMED 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

Columns 26 is neither an S nor blank. 
Disk sort assumes you want an alternate 
collating sequence and continues the job. 
If you do want an alternate collating 
sequence, put an S in column 26 of your 
header line before running the job again. 
If you do not want an alternate collating 
sequence, you can cancel the job at the 
C123 halt (Model 6) or the 22 halt (Model 
10, Model 12, or Model 15). 


$D161—INVALID NUMBER IN CONTROL FIELD 


Code: 
Explanation: 


System Action: 
User Response: 


T~Terminal 

There is either a nonnumeric character or 
embedded blank in columns 13-17 of the 
header line. 

The job ends. 

Correct the mistake and resubmit the job. 
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$D162—INVALID NUMBER IN OUTPUT RECORD 


LENGTH 
Code: 


Explanation: 


System Action: 
User Response: 


T-—Terminal : 

There is either a nonnumeric character 
or embedded blank in columns 29-32 
of the header line. 


‘The job ends. 
Correct the mistake and resubmit the job. 


SD163—SORTA-TAPE OUTPUT, RECORD LENGTH 


NOT 18 


Code: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

The record length on the output FILE 
statement is not 18. 

The job ends. 

For a tape output file during a SORTA 
(addrout) sort, the record length on the 
output FILE statement must be 18. 


SD164—SORTA—MULTIPLE INPUT (Model 12 only) 


Code: 
Explanation: 


System Action: . 


User Response: 


S—Severe error 

Addrout sort is invalid with multiple disk 
or tape files. 

The job ends after the generation phase. 
Modify your OCL to perform an addrout 
sort on a single disk or tape file, or merge 
all the files into a single file before per- 
forming an addrout sort. 


SD164—SORTA—CARD, 3741, OR MULTIPLE INPUT 


(Model 15 only) 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 
Addrout sort is invalid with card input, 
3741 input, or multiple disk or tape files. 


The job ends after the generation phase. - 


Modify your OCL to perform an addrout 
sort on a single disk or tape file, or merge 
all the files into a single file before per- 
forming an addrout sort. 


$D165—-SORTA-ASCII TRANSLATE SPECIFIED 


Code: 
Explanation: 


System Action: 
User Response: 
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T—Terminal 

If the addrout file is converted to ASCII, 
the result is an unusable file. 

The job ends. 

ASCII translate must not be specified if a 
tape addrout file is desired. 


SD166—VERIFY OPTION ASSUMED BLANK, COLUMN 


34 


Code: 
Explanation: 


System Action: 


User Response: 


‘ W—Warning 


Column 34 of the header does not contain 
an N or a blank. Disk sort will continue 
the sort, and assume that you meant for 
column 34 to be blank. Therefore, any 
writes to the work file will be verified. 
Disk sort assumes that you want any 
writes to the work file to be verified. 

If you desire not to have all writes to 

the work file verified, you must code an 
N'in column 34 and rerun the job. 


SD 168—MISSING OR INVALID PROGRAM NAME 


Code: 
Explanation: 


System Action: 
User Response: 


W—Warning 

The entry in columns 75-80 of the header 
statement is either blank or has an invalid 
program name. 

The program name defaults to SRTOBJ. 
If the default is not acceptable, enter the 
correct program name in columns 75-80 
and resubmit the job. 


$D169—MIXED EBCDIC AND ASCII FILES (MODEL 10 


ONLY) 
Code: 


- Explanation: 


System Action: 


User Response: 


S—Severe 

The job is attempting to mix ASCII and 
EBCDIC input and output files. Both 
input and output files must be the same 
type of data. 

The job continues through the generation 
phase to diagnose the sort sequence 
specifications but terminates at the end 
of the generation phases. 

Translate mixed files so they are the 
same type (ASCII or EBCDIC). For 
example, if you have EBCDIC input and 
you desire ASCII output, translate the 
input to ASCII, then run the sort job. 


$D172—7-TRACK OUTPUT—SORTA TYPE SORT 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

The output of a SORTA (addrout) sort is 
a 3-byte relative record number. Binary 
output from a SORTA sort cannot go on 
a 7-track tape. 

The job ends after the generation phase. 
When a SORTA sort is desired, output 
must be either on disk or 9-track tape. 


$D173—CONVERTOR OR TRANSLATOR NOT 
SPECIFIED 


Code: S—Severe error 

Explanation: Either the convertor or translator must be 
specified on the FILE statement if an in- 
put or output file is on 7-track tape. 

System Action: The job ends after the generation phase. 

User Response: Specify either convertor or translator on 
the FILE statement of the input or out- 
put file that is on 7-track tape. 


$D176—INVALID ALTERNATE SEQUENCE 
STATEMENT 


Code: - S—Severe error 

Explanation: You specified an alternate sequence in 
column 26 of your header line. The 
statement just read does not have 
ALTSEQ8GB in columns 1-8. Also it is 
not a comment statement or a valid sort 
specifications statement. 

System Action: The statement is ignored, and the job 
ends after the generation phase. 

User Response: If the statement does not belong in the 
job, delete it. If it does belong in the 
job, correct it. 


SD177—MISSING THE ** STATEMENT 


' Code: W—Warning 

Explanation: Disk sort has read the ALTSEO state- 
ments specified in column 18 of your 
header line. An ** (columns 1-2) state- 
ment should follow the last ALTSEQ 
statement that precedes your include/ 
omit/field sort specification statements 
(1/O/F in column 6). However, the 
statement just read was an |/O/F 
statement. 

System Action: Disk sort assumes an ** statement before 
the I/O/F statement. | 

User Response: Place an ** before the I1/O/F statement 
before rerunning the job. 


$D178—ALTSEO STATEMENT HAS INVALID DATA 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The data to alter the normal sequence in 
the above ALTSEQ statement is in error. 
One of the 4-position groups (columns 
9-12, 13-16, etc.) does not contain a 
valid hex number (0-9 or A-F). 

The column(s) in error have been flagged 
with an * in the line printed above this 
message. Processing continues with the 
next 4-position group. The job ends after 
the generation phase. 

Correct the statement and resubmit the 
job. 


S$D179—UNEXPECTED END-OF-FILE FOUND 


Code: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

Disk sort was reading your ALTSEQ 
statements. Valid statements following . 
an ALTSEO statement are: another 
ALTSEOQ statement, a comment statement, 
or an ** statement (columns 1-2). How- 
ever, disk sort found an end-of-file state- 
ment. (If your sequence specification 
statements are being read from the system 
reader, the program read a /*, /&, or // 
END statement.) _ 

Job ends at this point. No further state- 
ments are diagnosed. 

Make sure the last part of your sequence 
specifications are not missing. 


$D181—NO VALID ALTSEQ STATEMENTS FOUND 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 
ALTSEQ is specified on the header line, 


- but the system cannot find any valid 


ALTSEQ statements. 

There will be no alternate collating 
sequence. for this job; processing 
continues. 

If you want an alternate collating 
sequence, cancel the job at halt C123 
(Model 6) or halt 22 (Model 10, Model 
12, or Model 15), correct the ALTSEOQ 
statements, and resubmit the job. If you 
do not want an alternate collating sequence, 
remove the S from column 26 of your 
header line. 


Appendix F. Messages 115 


$D202—INVALID SPECIFICATION TYPE, COLUMN 6 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The statement makes no sense to disk sort 
because it is not a comment statement, an 
include statement, an omit statement, or 
a field statement. 

Disk sort bypasses the statement. The job 
ends after the generation phase. 

This statement is either misplaced or in- 
correctly typed. Correct the statement 
and resubmit job. 


SD204—BLANK CONTINUATION ASSUMED, 


COLUMN 7 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement is the first in 
an omit or include set. However, it con- 
tains a nonblank character in column 7. 
A blank was expected. 

Disk sort ignores the nonblank character 
and processes the statement as though 
column 7 was blank. 

Correct statement before next job run. 


SD206—INVALID CONTINUATION, COLUMN 7 


Code: 
Explanation: 


System Action: 


User Response: 
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S—Severe error 

The referenced statement is part of an 
include or omit set. It should have an A 
(AND) or O (OR) in column 7. However, 
it does not, nor does it contain a blank 
(see message SD208). 
Disk sort bypasses the statement and 
goes on to the next statement. Job will 
terminate at end of generation phase. 
Correct the statement before running the 
job again. 


SD208—OR CONTINUATION ASSUMED, COLUMN 7 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement is part of an 
include or omit set. !t should contain an 
A (AND) or O (OR) in column 7. How- 


‘ever, column 7 is blank. 


Disk sort assumes you want an O in 


“column 7. 


Check the order of your statements. 


_ Make sure you want an O in column 7. 


If you do not, you can cancel the job at 
the C123 halt (Model 6) or the 22 halt 
(Model 10, Model 12, or Model 15). 


$D210—INVALID C/Z/D/P/U/V SPECIFICATION, 


COLUMN 8 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 
Type of Column 8 
Statement Entry Should Be: 


Include or omit _ 
record type 


Control field 
statement? 


C, Z,D,P, or U 


C, Z,D, P, or U 


Data field or 

summary field C, Z,D, U, Por V 
Disk sort assumes you want a C in column 
8. 

Check the character in column 8 and 
correct the statement before rerunning 
this job. a 


: For an unconditional force or a force-all line, the column 8 entry 


must be aC. 


$D212—SPECIFICATION IN WRONG LOGICAL ORDER 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

If this is a control field statement (F in 
column 6), it improperly follows an omit 
statement (O in column 6). If this is an 
omit statement, it improperly follows an 
include statement (I in column 6). 

This statement is bypassed and processing 
continues with next statement. The job 
ends after the generation phase. 

Put your statement in proper order and 
resubmit the job. 


$D214—INCLUDE OR OMIT STATEMENT AFTER 


INCLUDE-ALL 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

Disk sort has previously read an include- 
all statement. Now only control field 
statements (F in column 6) should be 
read. However, an include or omit (I 

or O in column 6) was just read. 

This statement and all following state- 
ments are processed as though the include- 
all card had not been read. The job ends 
after the generation phase. 

Remove either the include-all statement 
or the include or omit statement. Resub- 
mit job. 


$SD216—LAST SET NOT A VALID INCLUDE SET 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The last set of your sequence specifica- 

tions should have been an include set. 

However, one of the following types of 

errors occurred: 

1. There were no statements after the 

header statement. 

2. The last set was an omit set. 

3. The last set was an include set, but 
it contained no field statements. 

The job will terminate at the end of the 

generation phase. 

Make one of the following corrections 

depending upon the type of error that 

occurred: 

1. Supply the sequence specifications. 

a Eliminate this omit set, because 
the records are omitted by default. 

3. Supply the missing field statements. 

Resubmit the job. 


$D218—TOO MANY SEQUENCE SPECIFICATIONS 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

You have used all the main storage that was 
allocated by disk sort for the select/build 
routine and for error information. 

Disk sort reads and error checks any 
following statements, but the job ends 
after the generation phase. The area 
allocated for the select/build routine and 
error information is now used only for 
error information. 

Remove all causes of error messages. If 
this error occurs with no other error 
messages, decrease the number of sequence 
specifications. 


$SD220—TOO MANY ERRORS 


Code: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

The main storage that disk sort allocated 
for the select/build routine and error in- 
formation is now filled with error infor- 
mation (see message $D218). 

Disk sort will not read or diagnose any 
more statements. The job ends at this 
point. 

If your statements are being read from 
the system card input device, make sure 
you've included /* and /& statements. 


$D222—ZONE OR V FIELD—LENGTH EXCEEDS 1 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement is a field state- 
ment (F in column 6). The type specified 
is a zone field (Z in column 8) or a V field 
(V in column 8) which should have a 
length of one byte. 

The specified number of bytes (calculated 
using columns 9-12 and 13-16) is used in 
building the work record field for this 
record type. The byte of zone or overflow 
information generated is placed in the 
rightmost byte (low order byte) of this 
field. The other positions to the left con- 
tain binary zeros (control fields) or blanks 
(data fields). 

If you do not want a length of one byte, 
respond to the C123 halt (Model 6) or 
the 22 halt (Model 10, Model 12, or 
Model 15) with a controlled cancel (op- 
tion 2). The Halt Guide for each system 
lists all the halts and the options for each 


one. 
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$D224—COLUMNS 9-16 OR COLUMNS 20-27 ARE 


INVALID 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

The location information in columns 

9-16 and/or columns 20-27 of the refer- 

enced statement is invalid for one of these 

reasons: 

1. The from location is greater than 
the to location. 

2. — The to location is blank or zero. 

3. The lengths of factor 1 and factor 
2 are not the same. 

The job ends after the generation phase. 

Correct this statement and resubmit the 

job. 


$D226—DIGIT FIELD LENGTH EXCEEDS 16 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning - 

A digit field longer than 16 bytes has been 
specified in the referenced statement. 
Disk sort assumes you want a length of 
16. The job ends after the generation 
phase. 

If your digit field is longer than 16 bytes, 
divide it into two or more fields. Create 
new specifications for these fields and re- 
submit job. If your digit field is really 

16 bytes or shorter, correct the statement 
and resubmit the job. 


$D228—CHARACTER CONSTANT—LENGTH EXCEEDS 


20 


Code: 
Explanation: 


System Action: 


User Response: 
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W—Warning 

The referenced statement is an include or 
omit statement (I or O in column 6). 
Factor 2 contains a character constant 
since column 19 contains a C. The length 
implied in factor 1 (columns 9-12 and 
13-16) is greater than 20, which is the 
maximum length allowed. 

The rightmost 20 columns in factor 1 

will be compared against the constant in 
columns 20-39. 

If you do not want a 20-byte field you 
can end the job after the generation 


‘phase at the C123 halt (Model 6) or the 


22 halt (Mode! 10, Model 12, or Model 
15). 


SD230—SAME SPECIFICATION TYPE ASSUMED, 


COLUMN 6 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement has a blank in 
column 6, so the specification type is not 
known. However, column 7 of this state- 
ment contains an A or O. The previous 
statement was either an include or omit 
statement (1 or O in column 6). 

Disk sort assumes the statement is a rec- 
ord type one with a specification type 
identical to that of the previous state- 
ment; that is, include (I) or omit (O). 

If the statement is not a record type state- 
ment, you can cancel the job after the 
C123 halt (Model 6) or the 22 halt (Model 
10, Mode! 12, or Mode! 15). In either 
case, correct the statement before re- 
running the job. 


S$D232—ZONE SPECIFIED—FACTOR 2 ISNOTA 


CONSTANT 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

A zone was specified in column 8 of a 
record type statement (include or omit) 
and column 19 does not have a C (con- 
stant) specified. 

Disk sort bypasses the statement. The 
job ends after the generation phase. 
Correct the statement and resubmit the 


job. 


$D234—ZONE SPECIFIED—RELATIONSHIP NOT EQ 


OR NE 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

A zone has been specified in column 8 of 
the referenced record type statement (in- 
clude or omit) and columns 17-18 do not 
contain EQ or NE. 

Disk sort assumes you want EQ in columns 
17-18; processing of this statement 
continues. 

If you do want an EQ in columns 17-18, 
you can continue the job after the C123 
halt (Model 6) or the 22 halt (Model 10, 
Model 12, or Mode! 15). Correct the 
column 17-18 entry in the statement 
before the next job is run. 


SD236—INVALID RELATIONSHIP, COLUMNS 17-18 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The referenced statement is a record type 
statement (include or omit) and columns 
17-18 (the relationship between factor 1 
and factor 2) does not contain an EQ, 
NE, LT, GT, LE, or GE. 

System assumes an EO entry in columns 
17-18. The job ends after the generation 
phase. 

Correct statement and resubmit job. 


$D238—INVALID FACTOR 2 TYPE, COLUMN 19 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement is a record type 
specification (include or omit) and column 
19 contains neither an F (field) nor C 
(constant). 

Column 19 is assumed to contain a C; 
factor 2 is taken as a constant. 

Check column 19 for an invalid character 
or missing character. If you do not want 
a C in column 19 you can cancel the job 
after the C123 halt (Model 6) or the 22 
halt (Model 10, Model 12, or Model 15). 
{In any case, you should correct the 
statement before running the job. 


SD240—UNPACKED DECIMAL—LENGTH EXCEEDS 16 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement has a U in 
column 8. Columns 8-12 and 13-16 
specify a factor 1 field fonger than the 
allowable maximum of 16 bytes. 

Disk sort processes the statement with a 
length of 16. The job ends after the 
generation phase. 

Check the to and from columns and 
correct the statement before resubmitting 
job. 


$D242—ZONE SPECIFIED—LENGTH EXCEEDS 1 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced statement is a record type 
specification (include or omit) with a Z 
(zone) in column 8. Factor 1 must be only 
one character long and it was not. 

A length of 1 is assumed. Column 20 in 
this statement contains the constant that 
will be processed. 

Verify that the assumption is correct. If 
it is not, you can cancel the job after the 
C123 halt (Model 6) or the 22 halt (Mode! 
10, Model 12, or Model 15). In any case, 
you should correct the statement before 
rerunning the job. 
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SD244—PACKED DECIMAL—LENGTH EXCEEDS 8 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 
Field length excessive. The P (packed) 

in column 8 dictates that the field must 
be only eight columns long (15 digits plus 
sign). 

Disk sort assumes a field length of 8. The 
rightmost eight bytes of the field are used 
for include or omit. !f column 19 contains 
a C, the constant in columns 20-35 of this 
statement is used for factor 2. 

If you do not want to accept disk sort’s 
assumptions, you can cancel the job after 
the C123 halt (Model 6) or the 22 halt 
(Model 10, Model 12, or Model 15). 

In any case, you should correct the 
statement before running the job again. 


SD246—INVALID FIELD TYPE SPECIFICATION, 


COLUMN 7 


Code: 
Explanation: | 


System Action: 


User Response: 
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W—Warning 

The referenced statement is a field specifi- 
cation; however, column 7 does not con- 
tain an F,N,O, DorS. 

The referenced field statement will be 
assumed as an N (normal control! field) 

if there have been no previous data or 
summary data field specifications for 

this include set. Otherwise it will be 


assumed to be a D (data field) specification. 


If you do not want an N in column 7, you 
can cancel the job after the C123 halt 
(Model 6) or the 22 halt (Model 10, 
Model 12, or Model 15). In any case, 

you should correct the statement before 
running the job again. 


$D248—ILLEGAL FORCE-ALL CONTINUATION 


Code: 
Explanation: 


System Action: 


User Response: 


ORDER 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The referenced statement is a field state- 
ment for a force-all specification (F in 
column 7). However, it does not follow 
a conditional force specification as it 
should. 

Disk sort ignores the statement. The job 
ends after the generation phase. 

Correct statement and resubmit job. 


.§$D250—FIELD STATEMENTS IN WRONG LOGICAL 


S—Severe error 

The referenced statement is a control 
field specification. However, a data (D) 
or summary (S) specification was previous- 
ly specified in this include set. All control 
field statements (N, O, or F in column 7) 
must precede any data or summary data 
field specifications. 

The statement is bypassed. Processing 
continues with next statement. The job 
ends after the generation phase. 

This statement is either misplaced or in- 
correctly specified. Correct the statement 
and resubmit the job. 


$D252—CONTROL FIELD LENGTH EXCEEDS 
HEADER VALUE 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The accumulated length of control field 
statements within the current include set 
exceeds length specified in header 
statement. 

Disk sort processes all the following state- 
ments in this include set but the job ends 
after the generation phase. 

Check the length specified in header line 
against the specified control fields. Cor- 
rect the errors and resubmit job. 


$D254—CONTROL FIELD LENGTH LESS THAN 
HEADER VALUE 


Code: 
Explanation: 


W—Warning 

The accumulated length of control fields 
specified for this include set is less than 
length specified in header statement. 

All control field statements have been 
processed for this include set. The re- 
maining positions are filled with binary 
zeros. a: 

You can continue the job after the C123 
halt (Model 6) or the 22 halt (Model 10, 
Model 12, or Model 15). Check control 
field length in header line before running 
the job again. 


System Action: 


User Response: 


SD256—CHARACTER FIELD SPECIFICATION— 
LENGTH EXCEEDS 256 


Code: 
Explanation: . 


S—Severe error 

The referenced statement is a character 
field specification (C in column 8). A 
‘length of more than 256 has been specified 
on this statement. 
The job continues through the generation 
phases to diagnose the sort sequence 
specifications but terminates at the end 
of the generation phases. 

If you require more than 256 positions 
of data, split the field into more than one 
field specification statement. 


System Action: 


User Response: 


SD258-—-TO OR FROM FIELD NOT WITHIN INPUT 
RECORD 


Code: 
Explanation: 


S—Severe error 

Either or both specifications in the to — 
or from columns are zero or contain a 
value larger than your input record length. 
This job ends after the generation phase. 
Check to make sure you have the desired 
input file. Also check that the from and 
to columns contain the desired values. 


System Action: 
User Response: 


SD262—DATA LENGTH EXCEEDS HEADER VALUE 


Code: 
Explanation: 


S—Severe error 

The data field specifications (columns 6 
and 7 contain FD or FS) for this include 
set now exceed your data length value. 

A SORTR or SORTRS job was specified. 
If you are dropping the control field 
(column 28 of the header line contains an 
X), the data length is the output record - 
length (columns 29-32 of the header line). 
If you are not dropping the control field, 
the control field length (columns 13-17 
of the header line) must be subtracted 
from the output record length to get the 
data field length. 

The job ends after the generation phase. 
There is an error in either the output 
record length in header line or the to 

and from fields in the field description 
lines. Correct the error and resubmit the 
job. 


System Action: 
User Response: 


$D264—SPECIFICATIONS IN WRONG NUMERICAL 
ORDER 


Code: 
Explanation: 


W—Warning 

Columns 1-5 of each sequence specifica- 
tion statement are used to order the state- 
ments. One or more of the statements 
has a value in columns 1-5 that is less 
than the preceding statement. Disk sort 
prints an S to the left of the statements 
that are out of order. 

Disk sort assumes the specification state- 
ments are in the order you want. 

Check the order of the sequence specifica- 
tions. If they are out of order, respond 
to the C123 halt (Mode! 6) or the 22 halt 
(Model 10, Model 12, or Model 15) 

with option 2. (The Halt Guide for 

each system explains the options fol- 
lowing each halt.) 


System Action: 


User Response: 
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SD266—FACTOR 1 LENGTH EXCEEDS 256 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The referenced statement is an include or 
omit specification for character data 
(column 8 contains aC). Factor 1 is a 
field (column 19 contains an F). The 
length of factor 1 exceeds 256 bytes. 
Disk sort assumes a factor 1 length of 
256 but ends the job after the generation 
phase. 

Break this statement into two specifica- 
tions with an AND continuation line (put 
an Ain column 7). 


SD268—P OR U FACTOR 1 USED WITH ALTSEQ 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

The referenced include or omit record 
type statement specifies a packed or 
unpacked factor 1 and an alternate collat- 
ing sequence is specified in the header 
statement. 

Factor 1 and factor 2 are changed as in- 
dicated by the ALTSEQ statements. This 
change may affect the units position (and 
sign) of an unpacked decimal number or 
any one position of a packed decimal 
number. If it does, you may not include 
or omit the desired records. 

Do not use P or U column 8 record type 
entries when you specify an alternate 
collating sequence. 


SD269—PACKED FIELD USED WITH 96-COLUMN 
INPUT (Model 15 only) 


Code: 
Explanation: 


System Action: 


User Response: 
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W—Warning 

96-column cards can contain only the 
System/3 64-character set. Packed data 
cannot be contained on a 96-column card. 
A 22 halt is issued at the end of the 
generation phase. 

Verify that you are not trying to retrieve 


packed data from a 96-column card. The . 


use of include sets may be necessary when 
using 96-column card input. 


$D270—INVALID SPECIFICATION WITH TRANSLATE 


ON 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe error 

If input is on 7-track tape with TRANS- 
LATE-ON, include, omit, or field specifica- 
tions with packed data are not allowed. 
If output is on 7-track tape with TRANS- 
LATE-ON, field specifications with 
packed data are not allowed. 

The job ends after the generation phase. 
Either correct the invalid specifications, 
change the output file to a 9-track tape 
file, or change the input file to a 7-track 
tape file with CONVERT-ON specified. 


$D271—INVALID SPECIFICATION UNLESS CONTROL 
FIELD DROPPED 


Code: 
Explanation: 


System Action: 


User Response: 


S—Severe error 

The control field is a normal packed or 
unpacked field, or an opposite packed, 
unpacked, zone, or character field. All 
of these control fields are modified by 
the disk sort program and will contain 


‘meaningless data. 


The program ends after the generation 
phase. 

Indicate that the control field is to be 
dropped (code an X in column 28 of the 
header statement) and repeat (as a data 
field) any of the control fields you want 


jin the output record. 


$D276—MORE THAN ONE SUMMARY V FIELD IN 


INCLUDE SET 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

This is aSORTRS job. The referenced 
statement specifies a summary V field 
(FSV in columns 6-8). At least one other 
summary V field has already been speci- 
fied for this include set. 

A data V field is assumed (FDV in 
columns 6-8). 

Change the extra summary V field(s) to 
data V fields before running the job again. 


SD278—SUMMARY V OR DATA FIELD INCONSISTENT 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

This isa SORTRS job. The referenced 

statement is a summary data field specifi- 

cation (S in column 7). Compare this 

specification with the first include set 

having S specifications; one of the follow- 

ing is true: 

@ The number of S specifications prior 
to this specification differs. 

@ The length of this S specification 
differs. 

@ The substitution character of this V 
specification differs. 

@ The relative location of the specifica- 
tion within the output record differs. 

The S specifications of the first include 

set having S specifications are used to 

actually define the summary field 

positions. 

A C123 halt (Mode! 6) or a 22 halt (Model 

10, Model 12, or Model 15) will occur at 

the end of the Generation Phase. Check 

carefully to assure that the first include 

set with S specifications is correct. If 

not, correct and take a 2-option (con- 

trolled cancel). 


SD280—NUMBER OF SUMMARY FIELDS 


INCONSISTENT 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

This is aSORTRS job. The total number 
of S specifications in this include set 
differs from the first include set having 
an S specification. 

The S specifications of the first include 
set having S specifications are used to 
actually form the summary output 
records. 

A C123 halt (Model 6) or a 22 halt (Model 
10, Model 12, or Model 15) will occur at 
the end of the generation phase. Check 
carefully to assure that the first include 
set with S specification is correct. If not, 
correct and take a 2-option (controlled 
cancel). 


$D282—NO SUMMARY SPECIFICATIONS FOUND— 


SORTRS JOB 


Code: 
Explanation: 


System Action: 


User Response: 


W—Warning 

A SORTRS job (summary tag along sort) 
was specified on the header statement 
for this job. However, no summary data 
field specifications were found in the 
statements for this job. 

All records with duplicate control fields 
will be eliminated from the output file. . 
Check the job type to be sure that 
SORTRS was intended. 


SD284—SUMMARY SPECIFICATIONS FOUND— 


SORTR JOB 


‘Code: 


Explanation: 


System Action: 


User Response: 


W—Warning 

This is aSORTR job. A summary data 
field specification (columns 6 and 7 con- 
tain FS) is expected only for SORTRS 
jobs. At least one S specification was 
found for this job. 

All S specifications are treated as data 
specifications (column 7 contains a D 
rather than an S). 

Check to assure that a SORTRS job 
was not wanted. 


SD286—TOO MANY SUMMARY DATA FIELDS 


Code: 
Explanation: 


System Action: 
User Response: 


S—Severe 

This is a SORTRS job. More than 24 
summary data fields (FS in columns 6 

and 7 and C, D, P, or U in column 8) have 
been specified. 

The job will end after the generation phase. 
Limit the number of summary data fields 
to 24 or less. 
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SD288—INVALID SORTRS SPECIFICATION— 


COLUMNS 20, 21, 22 
Code: W—Warning 
Explanation: The overflow field length in columns 20- 


System Action: 


User Response: 
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22 is invalid, not right-justified, or less 
than the field length given by to and from 
entries for this specification. 

Disk sort assumes that no entry was made 
in columns 20-22. 

If a valid entry was meant for columns 
20-22, cancel the job (C123 Halt—Model 
6 or 22 halt—Model 10, Model 12, or 
Model 15), correct entries, and rerun 

the job. If no entry was meant for 
columns 20-22, the job will run but 
warning message will continue until 

error is corrected. 


$D301—TAPE VARIABLE LENGTH BLOCK SPECIFIED 


Code: T—Terminal 

Explanation: Variable length blocks are not allowed on 
input files. Your input FILE statement 
is incorrect. 

System Action: The job ends. 

User Response: Disk sort accepts only fixed length block 
files from tape. Specify fixed block files 
on the FILE statement. 


SD302—RECL AND/OR BLKL NOT SPECIFIED 


Code: T—Terminal 

Explanation: | RECL and BLKL must be specified for a 
tape file on the FILE statement. 

System Action: The job ends. 

User Response: Specify RECL and BLKL and resubmit 
the job. 


SD303—HEADER AND TAPE OUTPUT LENGTH 
DISAGREE 


- Code: T—Terminal 
' Explanation: 
output FILE statement and the output 


record length specified on the sort header 


statement are not the same. 

System Action: The job ends. 

User Response: Both record lengths (output FILE state- 
ment and sort header statement) must 
agree. 


The output record length specified on the 


$D391—MAIN STORAGE ALLOCATED TOO SMALL 


Code: T-—Terminal 

Explanation: The amount of main storage assigned to 
disk sort is not large enough to handle 

the job. On the Model 15, this halt can 
occur. if the system was not generated 
with the support needed for a particular 
device such as tape, 5445, or card support. 
For CCP/Disk Sort, this occurs when the 
work record length is less than three bytes. 
This sort job cannot run. The CD45 halt 
(Model 6) or 25 halt (Model 10, Model 12, 
or Model 15) cancels the job. 

Make sure you have the right input file. 
Check the SORTR or SORTRS output 
length specified in your header line if 

this is a tag along sort. Also check that 
the total number of bytes reserved for 

the sequence specifications (message 
SD461) does not exceed the recommend- 
ed amount (see Appendix D). In addition, 
make sure there are no entries in positions 
35-39 of the header statement (reserved 
for system use). 


System Action: 


User Response: 


For CCP/Disk Sort, if the work record 
length is less than three bytes, then 
increase the control field record length 
or the output record length. 
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SD395—NOT ENOUGH SPACE FOR WORK FILE SD398—WORK FILE EXTENTS NOT USEABLE 


Code: T—Terminal Code: T—Terminal a 
Explanation: Disk sort automatic work file allocation Explanation: None of the track extents specified on 
is being used. One or more of the follow- the work FILE statement are large enough 
ing situations has occurred: for a work block. 
1. The disk packs that are currently System Action: The job ends. 
online cannot be used for work User Response: Increase the number of tracks on the 
space because they contain multi- work FILE statement so that the extents 
volume offline files or because a de- will be large enough to hold a work block. 


ferred mount is requested. 

2. No work space is available on the 
online disk packs. 

3. No work space is available on the 
disk packs indicated on the SWITCH 

i statement (Model 12 and Model 15). 
System Action: The job ends. 
User Response: To make more scratch space available, 
perform one of the following: 

1. Delete unnecessary files on the on- 
line disk packs (preferably the fixed 
units). 

2. Mount a removable pack that has 
enough scratch space available. 

3. Remove or modify the SWITCH 
statement (Model 12 and Model 15). 


126 


$D401—JOB COMPLETED GENERATION PHASE 


I—Information 

This job has completed the generation 
phase.: All diagnostics have been checked 
for errors. . 

If severe errors were found, message SD425 


Code: 
Explanation: 


System Action: 


and halt CD45 (Mode! 6) or halt 25 (Model: 


10, Model 12, or Model 15) follow. If 
warning errors were found message SD422 
and halt CD123 (Model 6) or halt 22 
(Model 10, Model 12, or Model 15) follow. 
If no errors were found, the job proceeds 
to the execution phase of disk sort. 


‘User Response: Review subsequent messages. 


$D402—NO ERRORS FOUND 


I—Information . 
No errors were found in the generation 
phase of disk sort. _ 

Processing continues to the execution - 
phase. a 
None. 


Code: | 
Explanation: 


System Action: 


User Response: 


SD403—OPERATOR CHOSE TO CANCEL JOB 


|—Information 

Message SD422 with halt CD123 (Model 

6) of halt 22 (Model 10, Model 12, or 
Model 15) was just given. The warn- 

ing error was not expected, so the operator 
chose to cancel the job. 

Processing ends. 

Correct the errors and resubmit the job. 


Code: 
Explanation: 


System Action: 
User Response: 


_§D404—OPERATOR CHOSE TO CONTINUE JOB. 


I—Information 

Message SD422 with halt CD123 (Model 
6) or halt 22 (Mode! 10, Mode! 12, or 
Model 15) was just given. The warning 
errors were expected, so the operator 
chose to continue the job. 

Processing continues to the execution 
phase. 

None. 


Code: 
Explanation: 


System Action: 


User Response: 


SD422—XXX WARNING ERRORS HAVE BEEN FOUND 
0—OK, CONTINUE 
2—NOT EXPECTED, CANCEL 


A—Action 

No severe or terminal errors were found 
in the data supplied in your sequence 
specification statements. However, warn- - 
ing errors were found. 

Halt C123 (Model 6) or halt 22 (Model 10, 
Model 12, or Model 15) occurs. 

The operator should review the warning 
errors on the listing to decide what action 
to take, and then respond to the halt with 
option 0 (OK—continue the job) or op- 
tion 2 (errors not expected—cancel the 
job). 


Code: 
Explanation: 


System Action: 


User Response: 


SD423—PERMANENT I/O ERROR READING 
SPECIFICATIONS 


A—Action 

A permanent I/O error has occured dur- 
ing the reading of your sort sequence 
specifications statements. 

This disk sort job cannot continue. Halt 
CD3 (Model 6) or halt 23 (Model 10, 
Model 12, or Model 15) occurs. 

Option 3—Immediately cancel this job. 
Resubmit job. If error persists, contact 
IBM for hardware support. 


Code: 
Explanation: 


System Action: 


User Response: 


$D425—SEVERE AND/OR TERMINAL ERRORS 
FOUND 


A—Action 

Severe and/or terminal errors were found 
during the generation phase of disk sort. 
This job cannot continue. Halt CD45 
(Model 6) or halt 25 (Model 10, Model 
12, or Model 15) occurs. 

Option 3—Immediately cance! this job. 


Code: . 
Explanation: 


System Action: 


User Response: 
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SD450—XX,XXX MAIN STORAGE BYTES ASSIGNED 


Code: I—Information 

Explanation: This is the size of main storage in which 
disk sort has been assigned to run. 

System Action: None. 

User Response: None. 


SD451—XXXX BYTES—INPUT FILE RECORD LENGTH 


Code: I—Information 

Explanation: This is the input record length. 
System Action: None. 

User Response: None. 


SD452—XXXX BYTES—WORK FILE RECORD LENGTH 


Code: !—Information 

Explanation: This is the record length for your work 
file. It was computed from the informa- 
tion on your header line. 

System Action: None. 

User Response: None. 


SD453—XXXX BYTES—OUTPUT FILE RECORD 
LENGTH 


Code: l—Information 

Explanation: This is the record length for your output 
file. This information is taken from your 
header line. . 

System Action: None. 

User Response: None. 
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SD454—XXXX BYTES—INPUT FILE BLOCK LENGTH 


Code: I—Information — 

Explanation: This is the block length for your input 
file. This information is taken from your | 
input FILE statement. 

System Action: . None. 

User Response: None. 


SD455—XXXX BYTES—OUTPUT FILE BLOCK LENGTH 


Code: !—Information 

Explanation: This is the block length for your output 
file. This information is taken from your 
output FILE statement. 

System Action: None. 

User Response: None. 


SD461—XXXX BYTES-SELECT/BUILD ROUTINE 


Code: _ 1-Information | 

Explanation: The sequence specifications for this job 
(including alternate collating statements, 
if specified) will use the specified number 
of bytes of main storage. 

System Action: None. 

User Response: None. 


SD462—XXX SEQUENCE SPECIFICATION 


STATEMENTS PROCESSED 
Code: 1—Information 
Explanation: This is the number of sequence specifica- 


tions statements (processed by the genera- 
tion phase) in your job. . 
System Action: None. 
User Response: None.. 


SD500-—-5445 FEATURE NOT AVAILABLE (Model 10 


only) 


Code: 
Explanation: 


System Action: 
User Response: 


T-—Terminal 

An attempt has been made to use a 5445 
disk; however, the IBM System/3 Disk 
Sort 5445 Disk Storage Drive Feature is 
not on the program pack. 

The job ends. 

Either specify another device type or per- 
form system generation with Disk Sort 
5445 support. 


$D501—DISK SORT TAPE SUPPORT NOT AVAILABLE 


(Model 10 only) 


Code: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

An attempt has been made to use tape 
input or output; however, IBM System/3 
disk sort tape support is not on the pro- 
gram pack. 

The job ends. 

Either specify another device type or per- 
form system generation with disk sort 
tape support. 
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SD600—XX—FIRST PASS—#0 PASS—STARTED 


Code: 
Explanation: 


System Action: 
User Response: 


!—Information 

The execution phase of your job has 
begun. Records are being copied from 
the input file to the work file (XX = 
execution phase). 

None. 

None. 


SD601—#XX PASS COMPLETED 


Code: 
Explanation: 


System Action: 
User Response: 


I—Information 

This is simply status information. It tells 
you that pass #XX has just been success- 
fully completed. (The first pass #00, the 
second pass is #01, etc.) 

None. 

None. 


SD602—XXXXXX INPUT RECORDS WERE READ IN 


Code: 
Explanation: 


System Action: 
User Response: 


|—Information 

Number of records read from the input 
file. 

None. 

None. 


SD603—NNNNNN RECORDS WERE SELECTED TO BE 


SORTED 


Code: 
Explanation: 


System Action: 
User Response: 


l—Information 

How many of the records just read in are 
going to be sorted. 

None. 

None. 


SD62C—NO INPUT RECORDS WERE SELECTED TO BE 


SORTED 


Code: 
Explanation: 


System Action: 


User Response: 


A—Action 

Of the number of input records specified 

in message SD602, none of them met the 
INCLUDE requirements of your sort 
sequence specifications. 

Halt C1234 (Model 6) or halt 2C (Model 10, 
Model 12, or Model 15) occurs. 

Take option 0 to continue the job and 
create a null output file or take option 3 
(immediate cancel). Review your sequence 
specifications in light of the records actual- 
ly in your input file. 


SD681—WORK RECORD COUNT IN ERROR 


Code: 
Explanation: 
System Action: 
User Response: 


T-—Terminal 

Disk sort internal error. 

The job terminates. 

Collect pertinent information and contact 
IBM for programming support. 


SD690—DISK SORT STARTING FINAL PASS 


Code: 
Explanation: 


System Action: 
User Response: 


I—Information 

The final pass of this sort job has begun. 
Records are being written on your output 
file. 

None. 

None. 


SD691—FINAL PASS SUCCESSFULLY COMPLETED 


Code: |—Information 

Explanation: The last pass of this sort was just success- 
fully completed. 

System Action: None. 

User Response: None. 


SD692—XXXXXX SORTED RECORDS PLACED ON 
OUTPUT FILE 


Code: !—Information 

Explanation: The fast pass of this sort was just success- 
fully completed. The output record selec- 
ted and generated from the input records 
have been sorted and placed on your out- 
put file. 

System Action: None. 

User Response: None. 


SD693—NO INPUT RECORDS FOUND 


Code: A—Action 

Explanation: No records were found in the input file. 

System Action: Halt C1234 (Model 6) or halt 2C (Model 
10, Model 12, or Model 15) occurs. 

User Response: Check input file to ensure that it is the 
proper file and contains records you want 
to sort. Take option 0 to continue the 
job and create a null output file or take 
option 3 (immediate cancel). 


SD694—XX PASSES REMAINING NNN 


Code: I—Information 

Explanation: This is the number of passes remaining until 
job completion. NNN is design information 
for the Model 12 and Model 15. For further 
explanation, refer to the diagnostic aids in 
the /BM System/3 Disk Sort Program Logic 
Manual, LY21-0517. 

System Action: None. 

User Response: None. 


SD695—X XXX USED FOR WORK FILE 


Code: i—Information 

Explanation: This is the number of tracks of work file 
used in this sort. 

System Action: None. 

User Response: None. 
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$D711—MOUNT OUTPUT TAPE 


Code: A—Action 

Explanation: The output tape is not required until] the 
intermediate merge passes are done. 

System Action: The program halts. 

User Response: Mount the tape. If the output file uses 

the same tape drive as the input file, re- 

move the input file and replace it with 
the output file reel. Do not reply to the 
halt until the output file ree! is mounted. 


SD901—*****NORMAL EQJ***** 


Code: !—Information 

Explanation: The sort job has been completed. 
System Action: None. 

User Response: None. 


-§D902—***** ABNORMAL EOJ***** 


Code: !—Information 
Explanation: Errors have prevented the sort job from 
being run. 


System Action: None. 
User Response: Review previous messages, correct errors, 
and resubmit job. 


SD928—INPUT FILE PERMANENT !/0 ERROR 


Code: A—Action 

Explanation: 
occurred during the reading in of records 
from your input file. 

System Action: The job cannot continue. Halt C125 © 
(Model 6) or halt 28 (Mode! 10, Model 
12, or Model 15) occurs. 


User Response: Option 3 (immediate cancel). Resubmit 


the job. If error persists, contact IBM for 


hardware support. 
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A permanent, unrecoverable |/O error has 


SD929—WORK FILE PERMANENT I/O ERROR. 


Code: A—Action 

Explanation: A permanent unrecoverable |/O error has 
occurred during the reading of records 
from your work file. 

System Action: The job cannot continue. Halt CD4 
(Model 6) or halt 29 (Model 10, Model 
12, or Model 15) occurs. 

User Response: Option 3 (immediate cancel). Resubmit 
the job. If error persists, contact IBM 
for hardware support. 


SD92A—OUTPUT FILE PERMANENT 1/0 ERROR 


Code: | 
Explanation: 


A—Action 

A permanent unrecoverable I/O error has 

occurred writing to your output file. 

System Action: The job cannot continue. Halt CD34 
(Model 6) or halt 2A (Model 10, Model 
12, or Model 15) occurs. 

User Response: Option 3 (immediate cancel) or option 2 

(controlled cancel). Resubmit the job. 

If error persists, contact IBM for hardware 

support. 


SD92E—WORK FILE TOO SMALL 


Code: A—Action 
Explanation: While building the work file, disk sort 

ran out of space. 
System Action: The job cannot continue. Halt C1245 
(Mode! 6) or halt 2E (Model 10, Model 
12, or Model 15) occurs. 
Option 3 (immediate cancel). Allocate 
more tracks for the work file, and resub- 
mit the job, If automatic work file 
allocation is being used, you can make 
more work area available by deleting un- 
necessary files (preferably on the fixed 
units), or by mounting a pack having ade- 
quate work area available. If automatic 
work file allocation is not being used, you 
can make more work area available by us- 
ing a file statement designating adequate 
work area. 


User Response: 


SD92F—OUTPUT FILE TOO SMALL 


Code: 
Explanation: 


System Action: 


User Response: 


A—Action 

When calculating the number of tracks 
needed for the output file, disk sort 
found that the output file was too small, 
or while writing to the output file, disk 
sort ran out of space. | 


Halt CD2 (Model 6) or halt 2F (Model 18, _ 


Model 12, or Model 15) occurs. 

Option 2 (controlled cancel). If the halt 
occurs prior to the intermediate passes of 
the sort, another halt will be likely to _ 


occur in the later phases. A 2-option wi — 
. allow the sort to take place and records 
to be put on the output file until no more — 


space is available. Option 3 (immediate 
cancel). Either allocate more tracks for 

a disk output file or use a larger tape reel 
or multireel for a tape output file. Resub- 
mit the job. ae 
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Appendix G. Instructions for Executing the Disk Sort Sample Program 


When you receive the disk sort program, perform the follow- 


Keyword 
ing installation procedures: 
aa . DATE-— 
1. If you received the disk sort program with the system 
control programs and have performed the program 
product generation during system generation, go to 
step 3. READER— 
2. For your system, perform the operations for Program READY— 
Product Generation and Completing System Genera- 
tion described in the Operator’s Guide. é 
LOAD — 
3. You should now verify that the disk sort program is a 
operational by executing the disk sort sample pro- 
gram. General operating procedures for disk sort may 
be found in the Operator’s Guide. To execute the 
sample program, perform the procedure under Sample DATE 
Program; to execute it on the Model 6, perform the 
procedure under Sample Program for Model 6. SWITCH 
Note: There is no sample program for CCP/Disk Sort. FILE 


Sample Program for Model 6 


For the Model 6, the disk sort sample program is a procedure 
on the distribution disk cartridge. 


Mount distribution disk cartridge on R1 and set the DISK 
DRIVE 1 ON/OFF SWITCH to ON. When the disk drive 
is ready for use, move PROGRAM LOAD switch to ON. 


You must now respond to the keywords that appear on the 
data entry keyboard. 
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NAME-— 


UNIT— 
(mm/dd/yy)— 
(00000000)— 


NAME— 
UNIT— 


PACK— 


LABEL— 


RECORDS— 


TRACKS— 
LOCATION— 
RETAIN— 


DATE— 


Your Keyboard Response 


mmddyy (current month, 


. date, and year) and pres 
PROG START. 


Press PROG START. 


LOAD and press PROG 
START. 


$D$SPL and press PROG 
START. 


R1 and press PROG START. 
Press PROG START. 
Press PROG START. 


INPUT and press PROG 
START. 


R1 and press PROG 
START. 


Enter the proper pack 
identification and press 
PROG START. 

Press PROG START. 

Press PROG START. 

1 and press PROG START. 


Press PROG START. 


T and press PROG START. 


Press PROG START. 


Keyword Your Keyboard Response 
FILE NAME— Press PROG START. 
MODIFY RUN and press PROG 
START. $G RECL-0096, 
REC#-000064 and press 
PROG START. 
READY— CALL and press PROG 
START. 
CALL NAME— $D$SP1 and press PROG 
START. 
UNIT— 


These are all the responses that you must make. When the 
sorted file is printed, the records should be in descending 


order in columns 10-15. When the READY keyword appears, 


the sample program has ended. 


R1 and press PROG START. 


Sample Program for Model 8, Mode! 10, Model 12, and 
Model 15 


For the Model 8, Model 10, Model 12, and Model 15, the 
disk sort sample program is a procedure on the distribution 
disk cartridge. 


With the system on F1, mount distribution disk cartridge 

on R1 and set the DISK DRIVE 1 ON/OFF SWITCH to ON. 
The READY light indicates when the disk drive is ready for 
use. If the system input device is other than the MFCU, 

set the ADDRESS/DATA switches as required. Set the 
PROGRAM LOAD SELECTOR to REMOVABLE DISK. 
Press PROGRAM LOAD, and enter the following 

statements via your system input device. 


//DATE mmddyy ~— 

// LOAD $D$SPL, R1 

// FILE NAME-INPUT, UNIT-R1, PACK-XXXXXX, 
TRACKS-1 

// RUN 

$G RECL-0096, REC #000064 

/& 

// CALL $D$SP1, R1 

// RUN 


where 
mmddyy = correct date. 
XXXX XX = proper pack identification. 


These are all the entries that you need to make. As the 


sorted file is printed, the records should be in columns 10- 
15. The READY light indicates that the sample program 
has ended. 


For the Model 8 or Model 10, EJ is displayed when the 
file to be sorted has been built. To continue with the 
sort job, press console START or, if you have DPF, the 
program 1 HALT/RESET key. 
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Appendix H. CCP/Disk Sort Specifications Differences _ 


This appendix is designed as a reference guide for System/3 
CCP/Disk Sort users. 


CCP/DISK SORT OVERVIEW 


The IBM System/3 CCP/Disk Sort Program is a disk-resident 
program which sorts a data file into either ascending or 
descending sequence. The sorting is executed under the 
control of the Communications Control Program (CCP) on 
a System/3 Model 4. Any disk file organization supported 
by the System/3 disk system management may be used as 
input to the sort. This includes indexed, direct, and sequen- 
tial files. 


The user supplies OCL statements and sort specifications 

to the CCP/Disk Sort generator program ($DGSRT). 
$DGSRT does not run under the control of CCP; rather, 

it generates an object program that can later be executed 

as a user task under CCP control. OCL statements for 
$DGSRT can be supplied from the 5404 operator keyboard 
console or from a procedure library member. Sort specifica- 
tions can be supplied from the 5404 operator keyboard 


console, from a procedure, or from a source library member. 


A listing of the sort specifications and informational mes- 
sages is optional. When requested, they are listed on the 
5213 Printer. 


The $DGSRT object module and subsequent sort phases 
can also execute in a batch mode, rather than under CCP. 
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FILE STATEMENT CONSIDERATIONS 


For CCP/Disk Sort generation, the FILE statements for 
input, work, and output are needed only to provide the 
LABEL parameters. The LABEL parameters are used as 
the file NAME for the object program execution. This is 
done so that multiple sorts can be executed in a single. 
CCP session. 


If any of the sort files (input, work, and output) are 
physically online during generation, the FILE statement 
must be valid for that file. 


If the sort file is not online, the FILE statement needs to 
be syntactically correct and contain a valid LABEL param- 
eter. For example, the UNIT, RETAIN, and TRACKS 
parameters do not have to be actual execution time values. 


$SOURCE and $WORK files must be provided for the 
generation of the object module. 


Work Record Length 


Work record lengths cannot be less than three bytes. This 
means that the length of the sort control field, plus the 
length of the data fields (if any), must be three bytes or 
greater. If the work record length is less than three bytes, 


a diagnostic message (SD391) will be issued during sort 


generation and the sort cannot be executed. If necessary, 
specify a minimum 3-byte control field which you can 
drop (X in column 28 of the header statement) at output 
time. Be careful, there may be data in portions of the 
control field that may be required in the output record. 


Note: The work record length discussed is not the value 
specified in the CCP DISKFILE statement. The record 
length specified in the DISKFILE statement for the work 
file must always be 256. 


Sample CCP/Disk Sort Job Stream 


// LOAD $DGSRT,unit 


// FILE NAME-$SOURCE,TRACKS-10, ... 


// FILE NAME-$WORK,TRACKS-10, ... 


// FILE NAME-INPUT,LABEL-SAMPIN, . . . (file description) 


G Gi 


// FILE NAME-WORK,LABEL-SAMPWK, .. . (file description) 


// FILE NAME-OUTPUT,LABEL-SAMPOT, . . . (file description) 


// RUN 


(header specification) 


(record type specifications) 


(field specifications) 


/* (end of file) 


Use either 
statement 
// END 
EJ $DGSRT is the CCP/Disk Sort module name. [EB Same as for Disk Sort (see the discussion on OCL 


Statements in Chapter 2). 
The unit parameter specifies the area containing the 


volume information to be sorted. The codes are [J The FILE statement for WORK must be present in 

Fi, R1, F2, or R2. CCP/Disk Sort. 

The overlay linkage editor requires that the The LABEL keyword identifies the actual work file 

$SOURCE and $WORK files be 10-tracks. name (wrkfil — see item @ of CCP Assignment 
Set Statement Example). 


gy The LABEL keyword identifies the actual input 
file name at execution time (infile — see item 
of CCP Assignment Set Statement Example). 


Appendix H. CCP/Disk Sort Specifications Differences 137 


138 


The LABEL keyword identifies the actual output 
file name (outfil — see item of CCP Assignment 
Set Statement Example). 


The header specification field definitions for col- 
umns 1-34 for CCP/Disk Sort are the same as those 
defined for disk sort (see Chapter 3). 


CCP/Disk Sort header specification field definition 
variations for columns 35-80 follows. 


Note: The last page of this appendix contains a 
CCP/Disk Sort Sequence Specification form. This 
form is provided for your use and you may make 
copies from it. It cannot be ordered through your: 
IBM representative. 


Users who have other system installations can still 
use the standard sequence specifications form 
(GX21-9089) or equivalent. Be aware that the 
changes in the header specification start with col- 
umn 39 for CCP/Disk Sort. 


Columns 35-38 are reserved for system use. Column 
35 cannot be used because only one sort algorithm 
exists. 


Column 39 must contain an R. The R indicates that 
columns 40-43 contain a record length. 


Columns 40-43 contain the input file record length, 
right justified with or without leading zeros. 


Note: \f a user comment exists in columns 40-43, 
you must either shorten the comment or remove it. 


Columns 44-72 contain any comment you wish to 
use. 


Note: If you are redoing the header statement for a 
program not previously used by CCP/Disk Sort, 
remember to rewrite the comment since columns 
40-43 now contain data of a different nature. 


Columns 73-74 are not used. 
Columns 75-80 contain the name given to the object 


program. This is the name that you enter from the 
terminal to invoke the sort. The entry can be: 


ids A valid program name. The first character 


must be alphabetic, but cannot be a #, $, or 
@ character. The remaining characters must 
be alphameric with no embedded blanks or 
special characters. 


wed. Blank. The default is SRTOBJ. 


Note: DIR, ALL, and SYSTEM are reserved names 
and must not be used as program names. 


ff) For record type specifications, see Chapter 4. 


11] For field specifications, see Chapter 5. 


CCP Assignment Set Statements Example 


The following illustrates a typical CCP assignment set 
statements for a CCP/Disk Sort. 


// DISKFILE NAME-SAMPIN,ORG-C, RECL-aaaa 


// DISKFILE NAME-SAMPWK,ORG-C,RECL-256 


// DISKFILE NAME-SAMPOT,ORG-C,RECL-bbbb 


// PROGRAM NAME-anynam,PGMDATA-YES,SORT-YES, 


_ FILES-’SAMPIN/CG/NOSHR,SAMPWK/CA/NOSHR,SAMPOT/CO/NOSHR’ 





@ _SANPIN (infile) is the same LABEL keyword given 
for FILE NAME-INPUT in the job stream (see item 
in the Sample CCP/Disk Sort Job Stream). 
This file can be SHR or NOSHR and the value of 
aaaa is the same value used in columns 40-43 of 
the header statement (record length). 


@ sawpwke (wrkfil) is the same LABEL keyword given 
for FILE NAME-WORK in the job stream (see item 
Kl in the Sample CCP/Disk Sort Job Stream). 
This file must be NOSHR and RECL must be 256. 


© SAMPOT (outfil) is the same LABEL keyword given 
for FILE NAME-OUTPUT in the job stream (see 
item FM in the Sample CCP/Disk Sort Job Stream). 
This file must be NOSHR. The value of bbb can be: 


@ The value specified in columns 29-32 of the 
header statement. 


@ A3 if SORTA is specified. 


Appendix H. CCP/Disk Sort Specifications Differences 


139 


Ovt 


CCP/DISK SORT 





SEQUENCE SPECIFICATIONS Program 
Header Page bal " 


BEE 





1 2 Object 75 7677 78 79 80 
Name 





Record Length 
Code 


Card Match 


Card: MATCH, 
SORT, SELECT, 


Disk: SORTR, 

SORTA, SORTRS 

Tape: SORTT 
Ei 


eo he 
Reserved I Record Job Description 


Length 


Checkpoint Option(C) 


8 Alternate Coll. Seq.(S) 
Output Option (xX) 
Verify Option (N) 


N Print Option 


34/35 36 37 38/39/40 41 42 43144 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66.67 68 69 70 71 72 


Peer ye ae, th 


vei 


Record | 
Location t Name 


Field 
Name 


41 42 43 44 45]46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 7071 72 


poe) See ea 


to indicate comments on field description line 37 
to indicate comments on record type lines 30 
// SOURCE statement 
in BUILD cycle for Model 6 87 
in CALL cycle for Model6 88 
in LOAD cycle for Model 6 83 
to supply sequence specifications for Model 10 and 
Model 15 92 


action message (A) 
explanation of 110 
Printed by the disk sort program 24 
address out sort (addrout), definition and function 5 
addrout and tag along sorts, comparison of 14 
addrout sort (SORTA) (see SORTA) 
alphameric constants, as factor 2 (columns 20-39—record 
type specifications) 35 
alphameric data 
as affected by column 8 record type entry 30 
effect on column 8 record type entry 31 
alternate collating sequence 
ALTSEQ statement use 96 
effect on factor 1 and factor 2 comparison 34 
effect on sort time 100 
indicated on header line (column 26) 23 
restrictions on using column 8 record type entries 96 
ALTSEQ statements 
examples of 97 
how tocode 96 
placement in sequence specifications 97 
Programming considerations 97 
what they can and cannot change 97 
AND lines 
definition 29 
describing a record type 28 
describing additional factor 1 fields 34 
in include sets 28 
inomitsets 29 
ASCII file 10,11,12 
automatic work file allocation 
directed 5445, Models 12 and15 13, 14 
effect on sort time 102 
file considerations 13, 14 
multiple file input 10, 11, 12 


index 


binary relative record number 5 
BUILD cycle for Model 6 
function 80 
keyword-response summaries 84 
when to use 80 
bytes in a track, number of 
°3340, forthe 105 
5444,forthe 105 
5445, forthe 105 


C/Z/D/P/U (column 8—record type specifications) 
effect on factor 1 length (columns 9-16) 34 
restrictions when using alternate collating sequence 31 
to indicate packed or unpacked data 30 
to indicate portions of characters to compare 31 
to indicate records you want tosort 31 
when factor 1 and factor 2 contain alphameric data 31 
with signed and unsigned data 31 
C/Z/D/P/U/V (column 8—field description specifications) 
effect on your sorted file 40 
what it tells disk sort 40 
calculating file size 105 
CALL cycle for Model 6 
function 80 
keyword-response summaries 88 
when to use 80 
CCP/disk sort 
$SOURCE 137 
$WORK 137 
field description specifications (see field description 
specifications) 
FILE statement considerations 137 
header specifications 
column summary 22 
column 6 (line type) 23 
column 18 (sequence) 23 
column 26 (collating sequence) 23 
column 27 (print option) 24 
column 28 (output option for SORTR) 24 
column 34 (nonverify option) 24 
column 39 (record length code) 25, 138 
columns that you must fill in 22, 138 
columns 1-2 (page numbers) 23 
columns 3-5 (line number) 23 
columns 7-12 (job) 23 
columns 13-17 (largest total of control fields of any 
record type) 23 
columns 29-32 (output record length for SORTR) 24 
columns 40-43 (record tength) 25, 138 
columns 44-72 (job description) 25, 138 
columns 75-80 (program name) 25, 138 
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CCP/disk sort (continued) 
overview 136 
record type specifications (see record type specifications) 
sample CCP assignment set statements 139 
sample job stream 137 
specifications, differences in 136 
work record length, specifying 136 
characters - 
in compare operations 30 
representation within the computer 31 
collating sequence (column 26—header specifications) 
alternate 96 
specified for compare operations 23 
standard 96 
table of 95 
column 5 (field description specifications), to add new sequence 
lines without renumbering 37 
column 5 (record type specifications), to add new sequence 
lines without renumbering 26 
column 6 (line type) 
field description specifications 37 
header specifications 22 
record type specifications 26 
column 7 (continuation or comments), record type 
specifications 30 : . 
column 7 (field type or comments), field description 
specifications 38 
column 8 (C/Z/D/P/U) 
record type specifications 30 
column 8 (C/Z/D/P/U/V) 
field description specifications 41 
column 17 (conditionally forced character), field description 
specifications 45 
column 18 
field description specifications (forced character) 45 
header specifications (sequence) 22 
column 19 
field descriptions (specifying replacements) 46 
record type specifications (field or constant) 34 
column 26 (collating sequence), header specifications 22 
column 27 (print option), header specifications 22 
column 28 (output option), header specifications 22 
column 34 (nonverify option), header specifications 22 
column 39 (CCP/disk sort record.length code), header 
specifications 25,138 
columns 1-2 (page number) 
field description specifications 37 
header specifications 22 
record type specifications 26 
columns 3-5 (line number) 
field description specifications | 37 
header specifications 22 
record type specifications 26 
columns 7-8 (field description specifications), possible 
combinations of entries 37,43 
columns 7-12 (job), header specifications 22 
columns 9-12 (from entry), field description specifications 37,44 
columns 9-16 (factor 1 location), record type 
specifications 26,34 . 
columns 13-16 (to entry), field description specifications 37,44 
columns 13-17 (largest total of control fields of any record 
type), header specifications 22 
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columns 17-18 (relation), record type specifications 26, 34 
columns 20-22 (overflow field length entry), field 
description specifications 37,52 
columns 20-27 (factor 2 field), record type specifications 26, 35 
columns 20-39 (factor 2 constant), record type 
specifications 26,35 
columns 29-32 (output record length), header 
specifications 22, 24 
columns 40-43 (CCP/disk sort record length), header 
specifications 25, 138 
columns 40-72 (comments) 
field description specifications 37,52 
record type specifications 26, 36 
columns 40-72 (job description—disk sort), header 
specifications 22,25 
columns 44-72 (CCP/disk sort job description), header 
specifications. 25, 138 
columns 75-80 (program identification/program level), 
header specifications 
CCP/disk sort 25, 138 
disk sort 25 
comment line 
field description specification 38 
record type specifications 30 
comments (columns 40-72—field description * 
specifications) 37, 52 
comments (columns 40-72—record type specifications), to 
describe record types 26, 36 
compare operations 
affected by column 8 of record type specifications 30 
affected by column 19 of record type specifications 35 
affected by columns 17-18 of record type 
specifications 34 
conditional force 
explanation of 39 
using a force-all line 51 
using normal or opposite and forced control fields 49 
using only forced control fields 48 
conditionally forced character (column 17—field description 
specifications) 
examples 48 
howtodefine 46 
used to assign value to summary overflow field 46 
what it tells disk sort 45 
constant 
as factor 2 (columns 20-39—record type) 35 
indicated by column 19 of record type specifications 35 
length when used as factor 2 on record type 
specifications 35 
position when used as factor 2 on record type 
specifications 35 
positioning sign in numeric constants 35 
continuation or comment (column 7—record type specifications) 
to describe different record types having identical field 
types 30 
to further describe the same record type 30 
to indicate comment line 30 
to indicate start of include or omit set 30 


_ control and data fields, when and how to describe one field 


asboth 24 


control fields 
forced 39 
how order affects sort time 102 
howtodrop 24 
normal 39 
number of when two or more record types 38 
opposite 39 
packed or unpacked 41 
specifying use by disk sort 38 
to sequence information in sorted records 42 
total lengths when two or more record types 38 
types of -39 
whentodrop 41 
conversational! OCL for Model 6 
interrelationship with sequence specifications 90 


summary of keywords and responses for OCL cycles 81 


tosupply OCL statements 9,16 

when to use each OCL cycle 80 
cycles, OCL 

functions of 80 

list of 80 


data 
alphameric 31 
numeric 32 
representation within the computer 31 
used in compare operations 30 
data and control fields, when and how to describe one field 
asboth 24 
data fields 
definition 38 
describing on field description line 38 
number of when two or more record types 38 
total lengths when two or more record types 38 
data fields, summary (see summary data fields) © 
data recorder, tosupply OCL statements 16 
defining 
conditional force characters 46 
force-all characters 46 
unconditional force characters 46 
diagnostic messages print option 24 
digit portion of System/3 character 31 
disk address 5 
disk sort program 
execution phase 110 
files used 6 
general description 3 
generation phase 110 
information OCL statements give your computer 9 
input needed 6 
interaction with input, work, and output files 4 
timings, sample 95 
dropping control fields 
how todoit 22,24 
whentodoit 41 


error messages 
explanation of codes 110 
listof 111 
example of using force 63 
examples of addrout and tagalongsorts 55,72 
examples of summary sort jobs 67 
examples of using forced control fields 47 
execution phase 110 
external indicators 14 


factor 1 (columns 9-16—record type specifications) 
changed by ALTSEQ statements 97 
codingrules 34 
coding when only one character 34 
describing more than one factor 1 field 34 
how length affected by column 8 entry 34 
Possible lengths 34 
to identify included or omitted records 34 
factor 2 (columns 20-27 or 20-39—record type specifications) 
changed by ALTSEQ statements 97 
coding the sign in packed and unpacked numeric 
constants 35 
how to position the numeric constant in columns 20-39 35 
length of factor 2 constant 35 
length of factor 2 field 35 
rules for coding 35 
factor 2 field (columns 20-27—record type specifications) 
coding rules 35 
coding when one character long 35 
relationship to factor 1 field 35 
field description specifications (disk sort and CCP/disk sort) — 
as part of includeset 28 
columnsummary 37 
column 6 (linetype) 38 
column 7 (field type or comments) 38 
column 8 (C/Z/D/P/U/V) 40 
column 17 (conditionally forced character) 45 
column 18 (forced character) 45 
column 19 (specifying replacements) 46 
columns you must fill in 37 
columns 1-2 (page number) 38 
columns 3-5 (line number) 38 
columns 9-12 (from) 44 
columns 9-16 (field location) 44 
columns 13-16 (to) 44 
columns 20-22 (overflow field length entry) 52 | 
columns 40-72 (comments) 52 
explanation of the column entries 38 
what they describe for addrout sorts. 38 
what they describe for summary sort 38 
what they describe for tag along sorts 38 
what they tell disk sort 37 
when using an include-al! line 27 
field length, dependent on column 8 entry (field description 
specifications) 45 
field location (columns 9-16—field description specifications) 
to identify location of field in input record 44 
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field or constant (column 19—record type specifications) to 
determine if factor 2 is constant or field 35 
field type or comments (column 7—field description 
specifications) 38 
file considerations 10 
file location on disk, effect on sort time 100 
force-all 
explanation 39 
result if not used 46 
used after conditional force lines 40 
force-all character 
examples of 51 
howtodefine 46 
force, exampleof 63 
forced character (column 18—field description specifications) 
used to initialize summary overflow field 46 
when and how character is forced 45 
forced control fields 
examples 47 
rules for using 42 
types 39 
when touse 39 
format of records 
definition 8 
effect on order of sequence specifications 8 
from entry (columns 9-12—field description specifications) 
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